Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Const SND_RESOURCE As Long = &H40004
Private Sub PlayWave()
PlaySound "MMM", 0, SND_RESOURCE Or SND_ASYNC 'Воспроизвести
End Sub
Private Sub StopWave()
PlaySound vbNullString, 0, 0 'Остановить
End Sub