Option Explicit

Private Sub Command1_Click()
        WindowsMediaPlayer1.Controls.play
End Sub

Private Sub Command2_Click()
        WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub Command3_Click()
        WindowsMediaPlayer1.Controls.pause
        WindowsMediaPlayer1.Controls.fastForward
End Sub

Private Sub Command4_Click()
        WindowsMediaPlayer1.Controls.pause
        WindowsMediaPlayer1.Controls.fastReverse
End Sub

Private Sub Command5_Click()
        WindowsMediaPlayer1.Controls.stop
End Sub

Private Sub Form_Load()
        Command1.Caption = "播放"
        Command2.Caption = "暂停"
        Command3.Caption = "快进"
        Command4.Caption = "快退"
        Command5.Caption = "停止播放"
        WindowsMediaPlayer1.URL = "E:\下载歌曲\北京欢迎你_群星.wma"
        WindowsMediaPlayer1.settings.autoStart = True
End Sub