求教：用mciSendString函数播放视频

Question

程序如下：不能正常播放。声音变形，图像出不来。求大师指点一下。
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrRetumString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Command1_Click()
mciSendString "open D:\我的酷盘\13年新春\IMGP2376.avi alias TheVideo parent " & Picture1.hWnd & " style child", 0&, 0&, 0&
mciSendString "put TheVideo window at 0 0 " & Picture1.ScaleWidth & " " & Picture1.ScaleHeight, 0&, 0&, 0&
mciSendString "play TheVideo", 0&, 0&, 0&
End Sub
Private Sub Form_Unload(Cancel As Integer)
mciSendString "close TheVideo", 0&, 0&, 0&
End Sub

Answer 1

Picture1.ScaleWidth与Picture1.ScaleHeight怕是不对.绘图单位是像素吗?