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("ƒtƒ@ƒCƒ‹‚̃tƒ‹ƒpƒX", 0, SND_FILENAME Or SND_ASYNC Or SND_LOOP) End Sub Private Sub Stop_Click() Call PlaySound(vbNullString, 0, 0) End Sub