menambahkan suara pada tombol

trik untuk menambahkan suara pada saat tombol di klik. file yang didukung berupa file wav.

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
CommonDialog1.Filter = "File WAV (*.wav)|*.wav"
CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click()
On Error Resume Next
sndPlaySound CommonDialog1.FileName, SND_ASYNC
End Sub