MUSICA

'Na generals do form coloque o seguinte:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_SYNC = &H0
Private Const SND_ASYNC = &H1
Private Const SND_NODEFAULT = &H2
Private Const SND_LOOP = &H8
Private Const SND_NOSTOP = &H10

'Depois crie uma sub para tocar o som:
[c]Public Sub TocarWAV(Filename As String)
Dim wFlags As Long
 wFlags = SND_ASYNC Or SND_NODEFAULT
 Call sndPlaySound(Filename, wFlags)
End Sub

'Em seguida num botão ou sei lá ... rsrsrs coloque os códigos abaixo para tocar o som wav
TocarWAV ("c:\caminho\som.wav")