Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule _
As Long, ByVal dwFlags As Long) As Long
Private Sub Command1_Click()
'Play WAV
PlaySound "C:\MyFile.wav", 0&, &H1
End Sub
Private Sub Command2_Click()
'Stop WAV
PlaySound "C:\MyFile.wav", 0&, &H4
End Sub