Leer códigos qr visual basic

Imports AForge.Video.DirectShow
Imports BarcodeLib.BarcodeReader

Public Class Form1
    Private Dispositivos As FilterInfoCollection
    Private FuenteDeVideo As VideoCaptureDevice

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'AGREGAR REFERENCIAS
        'AGREGAR CONTROL
        'DISEÑAR FORMULARIO
        Dispositivos = New FilterInfoCollection(FilterCategory.VideoInputDevice)
        For Each x As FilterInfo In Dispositivos
            ComboBox1.Items.Add(x.Name)
        Next
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        'INICAR LA LECTURA
        Timer1.Enabled = True

        FuenteDeVideo = New VideoCaptureDevice(Dispositivos(ComboBox1.SelectedIndex).MonikerString)
        VideoSourcePlayer1.VideoSource = FuenteDeVideo
        VideoSourcePlayer1.Start()
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        'DETENER LA LECTURA
        Timer1.Enabled = False
        VideoSourcePlayer1.SignalToStop()
    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        'ESTAR SEGUROS QUE HAY UNA IMAGEN DESDE LA WEBCAM
        If VideoSourcePlayer1.GetCurrentVideoFrame() IsNot Nothing Then
            'OBTENER IMAGEN DE LA WEBCAM
            Dim img As New Bitmap(VideoSourcePlayer1.GetCurrentVideoFrame())
            'UTILIZAR LA LIBRERIA Y LEER EL CODIGO
            Dim resultados As String() = BarcodeReader.read(img, BarcodeReader.QRCODE)
            'QUITAR LA IMAGEN DE LA MEMORIA
            img.Dispose()
            'OBTENER LAS LECTURAS CUANDO SE LEA ALGO
            If resultados IsNot Nothing AndAlso resultados.Count() > 0 Then
                'AGREGAR EL RESULTADO A LA LISTA
                'BUSCAR EL CODIGO DE VERIFICACION Y QUITARLO DEL TEXTO
                If resultados(0).IndexOf("1111") <> -1 Then
                    'QUITAR EL CODIGO DEL TEXTO
                    resultados(0) = resultados(0).Replace("1111", "")
                    ListBox1.Items.Insert(0, resultados(0))
                End If

            End If
        End If
    End Sub
End Class