这是我写的一个mp3播放器，但快进和快退为什么不能用呢？


Private Sub Form_Load()
pause.Visible = False
play.Visible = False

End Sub
Private Sub open_Click()
CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "请选择要播放的文件"
CommonDialog1.Filter = "mp3|*.mp3|wma|*.wma"
CommonDialog1.ShowOpen
Dim ss As String
If CommonDialog1.FileName <> "" Then
    ss = CommonDialog1.FileName
    WindowsMediaPlayer1.URL = ss
End If
Label1.Caption = "当前播放：" & WindowsMediaPlayer1.currentMedia.Name
pause.Visible = True
pause.Caption = "暂停"
End Sub

Private Sub stop_Click()
WindowsMediaPlayer1.Controls.stop
pause.Visible = False
play.Visible = False
Label1.Caption = ""
End Sub

Private Sub pause_Click()
WindowsMediaPlayer1.Controls.pause
play.Visible = True
pause.Visible = False
End Sub

Private Sub play_Click()
WindowsMediaPlayer1.Controls.play
play.Visible = False
pause.Visible = True
End Sub


Private Sub fastReverse_Click()
WindowsMediaPlayer1.Controls.fastReverse
End Sub

Private Sub fastFoward_Click()
WindowsMediaPlayer1.Controls.currentPosition = WindowsMediaPlayer1.Controls.currentPosition + 10
End Sub

红色的代码应该是没有错误的吧，但为什么不能用呢？？？

怎么没有人来给我看看呢，大侠在哪里！