VB中加入背景音乐？

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
'播放
Dim Result As Integer
Dim ReturnStr As String * 1024 '注意，必须指定String的长度
Result = mciSendString("play d:\背景音乐.wav", ReturnStr, 1024, 0)
End Sub

Private Sub Command2_Click()
'停止
Dim Result As Integer
Dim ReturnStr As String * 1024 '注意，必须指定String的长度
rc = mciSendString("close d:\背景音乐.wav", 0, 0, 0)
End Sub

'循环的话，可以检测其状态，如果不想检测的话，用个计时器，Interval设置成播放完需要的时间即可

模块部分
Attribute VB_Name = "Module1"
Option Explicit
Declare Function sndPlaySound Lib "winmm" Alias _