我用VB制作的播放器为什么不能播放？？

以下是代码，麻烦帮忙看下哪里出错啦啊：

Option Explicit
Dim playfilename As String
Dim playposition As Double
Dim MediaPlayer1 As String

Private Sub Command1_Click()
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

End Sub

Private Sub Command5_Click()
Unload Me
End
End Sub

Dim MediaPlayer1 As String

你这个不是播放器控件啊，程序编译都通不过吧？

可以的话我把我的源程序发给你你自己研究看看。

你的代码太乱。