主题：[求助]视频播放问题

在BeforeOpenFile事件中写如下代码，开始能正常播放，重启项目后就不能播放，原因在哪儿呢？

Forms("窗口1").Open()               ‘窗口1 中就是一个播放器
If Forms("窗口1").Opened Then
    Forms("窗口1").Controls("Panel1").Basecontrol.controls("mplayer").url = e.FileName
End If
e.Cancel= True