小吳 VBQA 程式設計討論

'**************************************************************
'********　f15_03.frm(使用sndPlaySound函數撥放音效檔)　********
'**************************************************************
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal SoundFileName As String, ByVal Flags As Long) As Long
Private Sub cmdPlay_Click()
SoundFileName = "C:\Vb6\ch15\eagle2.wav"
Call sndPlaySound(SoundFileName, 9)
cmdPlay.Caption = "再聽一次"
End Sub
程式在跑時它會不停的執行停部下來
我想設計另一個命令鈕讓程式停下來
請問要怎麼寫
還是有啥另外的辦法
高手請幫幫忙
謝謝