Friend Class VlcInstance
        Implements IDisposable
        ' Methods
        Public Sub New(ByVal args As String())
            Dim currentDirectory As String = Environment.CurrentDirectory
            Environment.CurrentDirectory = VlcHelpers.QueryVlcInstallPath
            Dim exception As New VlcException
            Me.Handle = clsLibVlc.libvlc_new(args.Length + 1, args, ( _
              exception.Ex))
            If exception.IsRaised Then
                Throw exception
            End If
            Environment.CurrentDirectory = currentDirectory
        End Sub

    Public Class VlcHelpers
        ' Properties
        Public Shared ReadOnly Property QueryVlcInstallPath() As String
            Get
                Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
                  "SOFTWARE\VideoLAN\VLC")
                If (key Is Nothing) Then
                    Return ""
                End If
                Return CStr(key.GetValue("InstallDir", ""))
            End Get
        End Property
 
    End Class

    Friend Class VlcMedia
        Implements IDisposable
        ' Methods
        Public Sub New(ByVal instance As VlcInstance, ByVal url As String)
            Dim exception As New VlcException
            Me.Handle = clsLibVlc.libvlc_media_new(instance.Handle, url, ( _
              exception.Ex))
            If exception.IsRaised Then
                Throw exception
            End If
        End Sub

 Friend Class VlcMediaPlayer
        Implements IDisposable
        ' Fields
 
        Private m_drawable As IntPtr
        Friend Handle As IntPtr
        Private paused As Boolean
        Private playing As Boolean
 
 
        ' Methods
        Public Sub New(ByVal media As VlcMedia)
            Dim ex As New VlcException()
            Me.Handle = clsLibVlc.libvlc_media_player_new_from_media( _
              media.Handle, ex.Ex)
            If ex.IsRaised Then
                Throw ex
            End If
        End Sub