「再生」
AxWindowsMediaPlayer1.Ctlcontrols.play()

「停止」
AxWindowsMediaPlayer1.Ctlcontrols.stop()

「スキップ」
AxWindowsMediaPlayer1.Ctlcontrols.next()

「前の曲の演奏」
AxWindowsMediaPlayer1.Ctlcontrols.previous()

「一時停止」
　 AxWindowsMediaPlayer1.Ctlcontrols.pause()

「早送り」
AxWindowsMediaPlayer1.Ctlcontrols.fastForward()

「早戻し」
axWindowsMediaPlayer1.Ctlcontrols.fastReverse()

＊注意　「早戻し」　「一時停止」


「早戻し」
http://support.microsoft.com/kb/921884/ja
ここの情報によると、mp3ファイルの場合は「早戻し」操作はできないみたいです。


「一時停止」
一時停止の場合は記入するイベントハンドラーによっては最初に戻ってしまうようです。
サンプル　ここをクリック

その場合は、一時停止停止した場所の位置を記録して、再生時にその変数を使います。
今回作成するサンプルは、HScrollBar1_Scrollコントロールを使って途中再生
しますのでこのあたりの方法を後で使います。
また、イベントのファイルの登録の場所にも左右されます。（下記参照）

Dim onestop As Double 　'1時停止のためのカウンター
'一時停止した位置をonestopに代入
onestop = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition


下記ですと、そのままで正しく「一時停止」ができます。

Private Sub f() Handles MyBase.Shown
AxWindowsMediaPlayer1.URL = "C:\test\test1.mp3"
End Sub
'再生
Private Sub Button1_Click() Handles Button1.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
'一時停止
Private Sub Button2_Click() Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub



下記ですと、そのままでは正しく「一時停止」ができません。最初に戻ってしまいます。

'再生
Private Sub Button1_Click() Handles Button1.Click
AxWindowsMediaPlayer1.URL = "C:\test\test1.mp3"
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
'一時停止
Private Sub Button2_Click() Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub

「Play」「Stop」「Next Music」「Pause」ボタンのクリックイベントに上記
のコードを記入すれば、基本的な操作は完了です。


「Play」「Stop」「Next Music」「Pause」ボタンクリックの例です。

'再生「Play」
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub

'停止「Stop」
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub

'スキップ「Next Music」
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
AxWindowsMediaPlayer1.Ctlcontrols.next()
End Sub

'一時停止「Pause」
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
AxWindowsMediaPlayer1.Ctlcontrols.pause()
End Sub