Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String,ByVal uFlags As Long) As Long
Private Sub Cmdplay_Click()
Dim SoundFile As String, Result As Long
SoundFile = "C:/Pwin98/Media/The Microsoft Sound.WAV"
Result = sndPlaySound(SoundFile, 1)
End Sub
|
