Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '※AxWindowsMediaPlayer1はActiveXのWMPコントロール 

        Dim filePath As String = "" 'この変数にパスが入ってることを前提とする 

        Select Case IO.Path.GetExtension(filePath)

            Case ".avi", ".wmv"

                AxWindowsMediaPlayer1.URL = filePath

            Case Else

                MessageBox.Show(filePath & "が開かれました")

        End Select

    End Sub