الغاء ضاغط الفيديو

بسم الله الرحمن الرحيم

السلام عليكم

عندي مشكله في كود الفيديو وهي

عند الضغط على المشاهده يظهر الصوت دون الصوره ويكتب لا يمكن أو لايوجد برنامج الغاء الضاغط

والكود الذي استخدمته هو

Private Sub Form_Load()
Dim pathfile
Dim avifile
' set the device type for playback of avi files.
MMCtrlavi.DeviceType = "avivideo"
' set the file name
pathfile = App.Path
If Right(pathfile, 1) <> "\" Then
pathfile = pathfile + "\"
End If
avifile = pathfile + "1.avi"
MMCtrlavi.FileName = avifile
MMCtrlavi.hWndDisplay = Form8.hwnd
MMCtrlavi.command = "open"
If MMCtrlavi.Error <> 0 Then
MsgBox "áã ÇÓÊØÚ ÝÊÍ ÇáãáÝ" + avifile, vbCritical, "ÎØÇ"
End If
End Sub

وجرب اسويه على اداه الصوره وماضبط لا تتفعل ازرار التشغيل للفيديو لاتعمل

وجزاكم الله كل خير