Animation1控件的问题

Question

这个程序格式应该没有错误的，可是调试的时候说不能打开文件，为什么呢，我选择了视频文件，然后赋值给Animation1控件，可是提示说不能打开文件，就是在赋值语句出错了，怎么回事呢？
Private Sub cmdopen_Click()
On Error GoTo a0:
CommonDialog1.Filter = "(*.avi)|*.avi"
CommonDialog1.ShowOpen
Animation1.Open CommonDialog1.FileName  ‘就是这个语句出错，哪里不对呢？
bopen = True
Exit Sub
a0:
 bopen = False
 MsgBox "error"
End Sub

Answer 1

该控件只能播放无声的 AVI 文件。此外，动画控件只能显示未压缩的或已用行程编码 (RLE) 压缩的 .avi 文件。