'use api:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Sub PlaySound(Filename)
Dim cmd As String
Call mciSendString("close MyWav", 0, 0, 0)
cmd = "open " & Filename & " type WAVEAudio alias MyWav"
Call mciSendString(cmd, 0, 0, 0)
Call mciSendString("play MyWav", 0, 0, 0)
End Sub
Private Sub Command1_Click()
PlaySound "C:\WINDOWS\MEDIA\Ding.wav"
MsgBox "play ok"
End Sub