'Play A sound
'
'API Function to play the sound
'bas module code
Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long
'form code
Private Sub Command1_Click()
'Play wav
PlaySound "C:\A Wayne\YourFile.wav", 0&, &H1
End Sub
Private Sub Command2_Click()
'Stop wav
PlaySound "C:\A Wayne\YourFile.wav", 0&, &H4
End Sub
"A myth is not the succession of individual images,
but an integerated meaningful entity,
reflecting a distinct aspect of the real world."
___ Adolf Jensen