Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA"( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Public Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Public Const SND_FILENAME = &H20000 ' name is a file name
Public Const SND_ASYNC = &H1 ' play asynchronously
開始と停止
Private Sub Play_Click()
Call PlaySound("ファイルのフルパス", 0, SND_FILENAME Or SND_ASYNC Or SND_LOOP)
End Sub
Private Sub Stop_Click()
Call PlaySound(vbNullString, 0, 0)
End Sub