3)添加 I Microsoft multimedia Control,如图所示 图Form1 口x 國四口口口 打开 4)添加 Button1的cick事件过程 Private Sub btnopen_ Click(By Val sender As System Object By Val e As System. EventArgs) Handles btnopen Click OpenFileDialog1 Filter="video(. avi. avi Open FileDialog 1 Show Dialogo filename =Open FileDialog 1. FileName If(Not filename. Equals())Then AXMMControl 1 FileName filename AXMMControl1. Command ="open End If End Subs（3）添加Microsoft multimedia Control，如图所示。 （4）添加Button1的Click事件过程。 Private Sub btnopen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnopen.Click OpenFileDialog1.Filter = "video(*.avi)|*.avi" OpenFileDialog1.ShowDialog() filename = OpenFileDialog1.FileName If (Not filename.Equals("")) Then AxMMControl1.FileName = filename AxMMControl1.Command = "open" End If End Sub