play wave file

Task : create play wave file

'Place in declaration or modul

Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Public Function WaVe(pathfile As String)

SoundPlay = PlaySound(pathfile, 0&, &H1)

End Function

'Place this code

Private Sub Form_Load()

WaVe ("C:\WINDOWS\Media\windows xp startup.wav") 'path your wave file

End Sub