Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim fp As Name deines Projektes.FastPixel(PictureBox1.Image(Standard _
        Kamera Bild))
        Dim fp2 As Name deiner Projektes.FastPixel(PictureBox2.Image(aktuelles _
        Kamera Bild))
        Dim Farbe As Color
        Dim Farbe2 As Color
        Dim maxError(maximale Fehler Anzahl, die sein darf) As Integer = 0
        fp.Lock()
        fp2.Lock()
        Dim x(Pixelkoordinate x) As Integer
        Dim y(Pixelkoordinate y) As Integer
        For x = 0 To PictureBox1.Image.Width - 1
            For y = 0 To PictureBox1.Image.Height - 1
                Farbe = fp.GetPixel(x, y)
                Farbe2 = fp2.GetPixel(x, y)
                If Farbe = Farbe2 Then
                'hier steht nichts
                Else
                    maxError = maxError + 1
                End If
            Next
        Next
        If maxError > 19 Then
            Label1.Text = "Kein gleiches Bild"
        Else
            Label1.Text = "Gleiches Bild"
        End If
        fp.Unlock(True)
        fp2.Unlock(True)