创建一个简单的播放器。
在窗体上创建一个下拉式菜单，具体菜单名和标题设置如表所示
下拉菜单属性设置
名称    标题    缩进    是否可见
mnuFile    文件(&F)        是
Open    打开    ……    是
Play    播放    ……    是
Exit    退出    ……    是
Pause    暂停    ……    是
Stop    停止    ……    是
在窗体上添加Windows Media Player控件和CommonDialog控件。其属性值都为默认值。

Private Sub Form_Load()
    Caption = "ActiveMovie控件示例"
    MediaPlayer1.FileName = App.Path + "\start.avi"
End Sub
Private Sub Exit_Click()
    End
End Sub
Private Sub Open_Click()
    CommonDialog1.Action = 1
MediaPlayer1.FileName = CommonDialog1.FileName
End Sub
Private Sub Pause_Click()
    MediaPlayer1.Pause
End Sub
Private Sub Play_Click()
    MediaPlayer1.Play
End Sub
Private Sub Stop_Click()
    MediaPlayer1.Stop
End Sub
程序运行后，显示红色标记找不到对象属性或方法！怎么回事？