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