我做了关于VB媒体播放器的代码 但是不能播放 请教高手！

Private Sub cmdcontinue_Click()
Text1.SetFocus
Mediaplayer1.play
cmdplay.Enabled = False
cmdpause.Enabled = True
cmdcontiue.Enabled = False
End Sub

Private Sub cmdnext_Click()
On Error GoTo nexterr
Mediaplayer1.Next
Exit Sub
nexterr:
MsgBox "现在正在播放单曲", vbOKOnly, "出错信息"
End Sub

Private Sub cmdpause_Click()
Text1.SetFocus
Mediaplayer1.pause
cmdpause.Enabled = False
cmdcontinue.Enabled = True
End Sub

Private Sub cmdplay_Click()
Text1.SetFocus
On Error GoTo handler
With CommonDialog1
.InitDir = App.Path
.Filter = "MP3 Files( *.mp3)| *.mp3|Wave Files( *.wav)|*.wav"
.FileName = ""
.ShowOpen
End With
Mediaplayer1.FileName = CommonDialog1.FileName
Mediaplayer1.play
Text1.Text = &quo

刚用VB做了个媒体播放器,提示未提议 我用VB做了一个小代码，是关于几天后是星期几的，但有个问题 关于媒体播放器的问题 关于VB的代码问题 我问一些关于vb代码的问题： 关于电脑媒体播放器的问题 关于Windows媒体播放器的问题！ 我的vb计算器代码 请问有人可以帮我作一个简单的VB 程序设计吗？作个“媒体播放器”，谢谢！ 帮我分析一下vb的代码!谢谢了!!