Option Explicit
Private Sub Form_load()
Me.Width = 480 * Screen.TwipsPerPixelX
Me.Height = 360 * Screen.TwipsPerPixelY
Me.Left = (Screen.Width - Me.Width) / 2
Me.Top = (Screen.Height - Me.Height) / 2
With Me.WindowsMediaPlayer1
  .Width = 480 * Screen.TwipsPerPixelX
  .Height = 360 * Screen.TwipsPerPixelY
        .ClickToPlay = False
        .ShowControls = False
        .FileName = App.Path + "\C:\Documents and Settings\Administrator\桌面\机械运动分析\资源文件\封面动画.avi"
End With
End Sub


Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
Unload Me
Frm主菜单.Show
End Sub

遇到这个问题，不知道是什么原因。
vb初学者
运行到
        .ClickToPlay = False
        .ShowControls = False
的时候出现问题。
不知道windowsmediaplayer插件是否有这两个属性/方法。