Private Declare Function sndPlaySound Lib _
"winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
sndPlay = sndPlaySound("C:\Filename.wav", 1)
End Sub
"winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
sndPlay = sndPlaySound("C:\Filename.wav", 1)
End Sub
Posting Komentar