per suonare un brano wav
codice:
PrivateDeclare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
'poi inserire quanto segue nel form load.
Private Sub Form_Load()
    Wave = sndPlaySound("percorso del file", 1)
End Sub