Public Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlaySound(strFileName As String)
sndPlaySound strFileName, 1
End Sub
VB6 Play Sound
code:
0 comments:
Post a Comment
Click to see the code!
To insert emoticon you must added at least one space before the code.