Может возможно такое по названию объекта определить его тип т.е является объект кнопкой, чекбоксом и т.д
напремер создать функцию PlaySound и взависемости от того какой тип воспроизводить тот или иной звук.
Private Function PlaySound (ByVal Obj As Object)
'Obj= кнопка
My.Computer.Audio.Play(My.Resources.Button, _
AudioPlayMode.Background)
'Obj= чекбокс
My.Computer.Audio.Play(My.Resources.CheckBox, _
AudioPlayMode.Background)
End Function
или это бред