全部書き直したら出来ました。
ありがとうございます。
＞解決したならどういうコードで解決したかキチンと報告しておいてください。
下のようなコードでできました、
Public Class Mp3プレーヤー

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
    Declare Function sndPlaySound _
    Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
    Public Const SND_SYNC = &H0
    Public Const SND_ASYNC = &H1
    Public Const SND_NODEFAULT = &H2
    Public Const SND_MEMORY = &H4
    Public Const SND_LOOP = &H8
    Public Const SND_NOSTOP = &H10
    Dim FilePath = FileName
    Dim FolderName As String
    Private aliasName = gg
    Dim FileName As String
    Private strFolder As String = " "
    Private strFileName As String = ""
    Dim gg As String
    Dim ff As String
    Dim aa As String
    Dim fm As String
    Dim cmd As String



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'再生・再開
   

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


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

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


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

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
’停止    
    Call mciSendString("Close """ & FileName & """", "", 0, 0)
        Me.Label1.Text = FileName & "を停止しました"
        Me.TextBox1.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
’一時停止       
 Call mciSendString("pause """ & FileName & """", "", 0, 0)
        Button2.Text = "再開"
        Label1.Text = FileName & "を一時停止しました"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
’ファイルを開く
       

        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub


        FileName = OpenFileDialog1.FileName

        'フォルダ名とファイル名に分けるには 
        gg = System.IO.Path.GetDirectoryName(FileName) 'ここと
        ff = System.IO.Path.GetFileName(FileName) 'ここの（） 

        Select Case IO.Path.GetExtension(filePath)
            Case ".avi", ".wmv"
                VideoPlay.AxWindowsMediaPlayer1.URL = filePath
            Case Else
                MessageBox.Show(FileName & "が開かれました")
        End Select


    End Sub


ちなみにmp3なども認識しました。
（ＶＢ６のコードらしいですが、VB2008でもうごきました。）
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
'閉じるイベント       
 Call mciSendString("Close """ & FileName & """", "", 0, 0)
        Me.Close()

    End Sub
End Class