vb6.0程序背景音乐如何循环播放API sndPlaySound

vb6.0程序背景音乐如何循环播放?
使用的是API sndPlaySound 
Private Declare Function sndPlaySound& Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NODEFAULT = &H2

Call sndPlaySound("c:\w98.wav", SND_ASYNC Or SND_NODEFAULT Or SND_LOOP)
 
运行了代码---
---不幸的事情发生了-_-
  窗体关闭后声音还在一直响着----
-----不停地响。。。
不停的响。。。。--------
---------再也停不下来了。