我用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