VB使用mciSendString问题

我用vb编Mp3播放器用的是mciSendString函数，但是它刚开始能播放音乐，过就不发声了。
我没有系统静音或低音，用千千静听能听音乐。
我还没有播放就没声，不存在音乐还没关闭就第二次再播放

代码：
Option Explicit
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()
mciSendString "open " & Text1.Text, vbNullString, 0, 0
mciSendString "play " & Text1.Text, vbNullString, 0, 0
End Sub

Private Sub Command2_Click()
mciSendString "close " & Text1.Text, vbNullString, 0, 0
End Sub

Private Sub Command3_Click()
CommonDialog1.Action = 1
Text1.Text = CommonDialog1.FileName
End Sub
这段代码本来可以播放音乐，是后来不知道怎么就不行了，没声了。
请问怎么回事，怎么解决？
谢谢！解决以后会追加悬赏！！！！

VB无法使用。 VB使用ADODC。 vb 函数使用格式 vb不能使用 VB中使用CMD！ VB中的listbox使用 VB皮肤使用 vb怎么使用timer??? vb 组合框使用 如何使用VB