1、创建一个新窗体
   2、在工具箱中找到Microsoft Animation Control6.0(SP4)控件，在窗体中创建一个新控件，命名为：Animation0

   3、创建一个按钮，命名为：Command1，在单击事件中写入下述代码

Private Sub Command1_Click()
Dim AviFile As String
        
        AviFile = "C:\AVI\FILEMOVE.AVI"'AVI文件的路径
           With Animation0
              .Visible = True
              .AutoPlay = True
              .Open AviFile
            
           End With
End Sub

示例：

将示例解压到C：盘目录下
点击浏览该文件