急求助：vb中播放视频的问题

Question

我写了 一个程序 为了播放数码相机录的视频  avi格式等 现在只能播放声音无法看视频 麻烦高手给我看一下哪里错了
下面是“播放“按钮
Private Sub Command1_Click()
If i = 1 Then
 MMControl1.Command = "pause"
 Command1.Enabled = False
 Command3.Enabled = True
 Command4.Enabled = True
Else
 Com.Filter = "Wav文件|*.wav|MIDI文件|*.mid|AVI文件|*.avi|所有文件|*.*"
 Com.ShowOpen
 If Left(Com.FileName, 3) = "I:\" Then
  MsgBox "无法播放此格式！", 0, "错误！"
  Exit Sub
 End If
 MMControl1.FileName = Com.FileName
 MMControl1.Command = "Open"
 MMControl1.Command = "play"
 Label2.Caption = Com.FileName
 Command1.Enabled = False
 Command3.Enabled = True
 Command4.Enabled = True
End If
End Sub

Answer 1

加一个Picture1和代码:Private Sub Form_Load()
MMControl1.DeviceType = "avivideo"
MMControl1.hWndDisplay = Picture1.hWnd
End Sub
试一试

Answer 2

MMControl可播放MID和WAV格式的音乐还有CD,avi格式视频也还是可以,其它就不行了,数码相机录的视频是avi格式吗?MMControl除avi不支持其它格式的视频.如果不是,最好改用WindowsMediaPlayer,支持格式多.