как можно озвучить все нажатия кнопок

[SharkyUA]

Всем привет! Помогите упростить. Подставляю на каждую кнопку вот такой код (пример):

Private Sub Button_TEST_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_TEST.Click
'озвучка нажатия
Me.Player.SoundLocation = ".\res\navig.wav"
Me.Player.Play()
'Сам код
Process.Start("hl.exe", "-game cstrike")
End Sub

вот это в декларации:
Private Player As New SoundPlayer

это импортирую:
Imports System.Media

Можно ли мне как-то упростить что-бы не прописывать на каждую кнопку "озвучку нажатия". Если можно напишите как. :oszone:

[ferget]

Создать свой компонент
наследует все свойства button и еще проигрывает звук

[SharkyUA]

ferget, спасибо, но я деле программирования новичок, не мог бы ты написать код пожалуйста.

[LilLoco]

SharkyUA, Почитайте статью (http://msdn.microsoft.com/en-us/library/a6h7e207%28VS.71%29.aspx). Многое станет понятным!