求助各位大哥,关于mciSendString的问题

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'定义变量
Dim sTheFile As String     '文件名
Dim sAlias As String       '别名
Dim lReturn As Long        '返回值Private Sub Command1_Click()
 sAlias = "VCD"
sTheFile = "g:\sh2\千年等一回.dat"
'打开文件
lReturn = mciSendString("open " & sTheFile & " ALIAS " & sAlias & " parent " & Picture1.hWnd & " style child", vbNullString, 0, 0)
'播放
lReturn = mciSendString("play " & sAlias, vbNullString, 0, 0)
End Sub
求助各位大哥,关于mciSendString的问题,哪里出错了,无法播放