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