Private Sub Button1_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles Button1.Click
 
   Dim supportedextensions() As String = ".WMV .AVI .MPG".Split(" "c)
 
   If OpenFileDialog1.ShowDialog = DialogResult.OK Then
      With AxWindowsMediaPlayer1
         If supportedextensions.Contains _
         (New cFileinfo(OpenFileDialog1.FileName).Extension.ToUpper) Then
            If .playState = WMPLib.WMPPlayState.wmppsPlaying Then 
               .Ctlcontrols.stop()
            End If 
            .currentPlaylist.clear()       
            .URL = OpenFileDialog1.FileName
            .Ctlcontrols.play()
         End If
      End With
   End If
End Sub