qt主播凌大叔:用VB做播放器出了点问题~谁能帮我解决一下啊

我点选择后,点播放,告诉我未找到方法或数据成员~~~~谁帮我解决一下啊

以下是我做的播放器程序

Private Sub Command1_Click(Index As Integer)
Command1.Enabled = False '暂停按键失效
MediaPlayer1.pause '暂停播放
playposition = MediaPlayer1.currentPosition '当前的播放位置
End Sub
Private Sub Command2_Click()
Command1.Enabled = True ' 暂停按键有效
Command3.Enabled = True '停止按键有效
MediaPlayer1.FileName = playfilename ' 播放媒体文件名称
MediaPlayer1.SelectionStart = playposition '当前播放的位置
MediaPlayer1.play '播放媒体文件
End Sub
Private Sub Command3_Click()
playposition = 0 ' 停止播放
Command3.Enabled = False '停止按键无效
Command1.Enabled = False '暂停按键无效
Command2.Enabled = True '播放按键有效
MediaPlayer1.Stop '停止播放
End Sub
Private Sub Command4_Click()
CommonDialog1.ShowOpen '打开文件对话框
playfilename = CommonDialog1.FileName '记录播放文件名
playposition = 0 '第一次打开文件时候，播放位置为0
End Sub
Private Sub Command5_Click()
Unload Me ' 卸载窗口
End '结束程序
End Sub

Private Sub Form1_Load()
Option Explicit
Dim playfilename As String ' 定义播放文件的名称
Dim playposition As Double ' 定义当前播放的位置

End Sub