求助???????????
我用ActiveMovie控件放视频这样写为什么不行啊？怎么解决？这样写不行？
Private Sub Image1_Click()
ActiveMovie1.FileName = "f:\2.avi"
Caption = ActiveMovie1.FileName
ActiveMovie1.Run
End Sub
这样分两个地方写就可以，但我要像上面那样写放到一个事件里怎么办？
Private Sub Image2_Click()
ActiveMovie1.FileName = "f:\3.avi"
Caption = ActiveMovie1.FileName
End Sub
Private Function fun()
ActiveMovie1.Run
End Function
