Dim WithEvents VLC As AXVLC.VLCPlugin2
 
  Private Sub ButtonPlay_Click(sender As Object, e As EventArgs) Handles _
    ButtonPlay.Click
    With New OpenFileDialog
      .InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyMusic
      If .ShowDialog = Windows.Forms.DialogResult.OK Then
        Try
          VLC = New AXVLC.VLCPlugin2
          VLC.playlist.add(New Uri(.FileName).AbsoluteUri)
          VLC.playlist.play()
        Catch ex As Exception
          MsgBox(ex.Message) 'Fehler bei 32-Bit
        End Try
      End If
    End With
  End Sub
 
  Private Sub ButtonStop_Click(sender As Object, e As EventArgs) Handles _
    ButtonStop.Click
    VLC.playlist.stop()
  End Sub
 
  Private Sub VLC_MediaPlayerEncounteredError() Handles _
    VLC.MediaPlayerEncounteredError
    MsgBox("Ladefehler!")
  End Sub