PlayWav

'devi inserire nel tuo progetto un Modulo.bas ed inserire

'questa dichiarazione che sfrutta la libreria Win Multimedia.


Declare 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("c:\windows\media\The Microsoft Sound.wav", 1)
End Sub