Button2 = 再生
Button4 = 停止
Button3 = 一時停止
再生ボタンのコード
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "再開" Then

            Call mciSendString("resume " & FileName & """", "", 0, 0)


            Me.Button2.Text = "再生"
            Label1.Text = FileName & "を再生中"
        Else

            Call mciSendString("play """ & FileName & """", "", 0, 0)


            Label1.Text = FileName & "を再生中"
        End If

停止ボタンのコード
       Call mciSendString("Close """ & FileName & """", "", 0, 0)
        Me.Label1.Text = FileName & "を停止しました"
        Me.TextBox1.Text = ""
一時停止のコード
        Call mciSendString("pause """ & FileName & """", "", 0, 0)
        Button2.Text = "再開"
        Label1.Text = FileName & "を一時停止しました"


    End Sub