Public Sub Entfernungsberechnung(ByVal strPfadBildMit As String, ByVal _
      strPfadBildOhne As String, ByVal intAktuellerSchnitt As Integer)
        Dim y As Integer
        Dim x As Integer
        Dim byteRMax As Byte
        Dim bmpBildMit As Bitmap = New Bitmap(strPfadBildMit)
        Dim bmpBildOhne As Bitmap = New Bitmap(strPfadBildOhne)
        Dim colorRgbMit As Color
        Dim colorRgbOhne As Color
        Dim byteRed As Byte
        Dim intDurchschnitt As Integer
        Dim byteCount As Byte
        Dim intTeiler As Integer
        Dim intPunktesumme As Integer
        'Laserlinienerkennung: Bild 1: Mit laserlinie Bild 2: Ohne Laserlinie 
        ' ,Bilder sind hochkant
        For x = intRandUnten To 2048 - intRandOben 'Linien von unteren 
        ' Startwert bis oberen Endwert abscannen
            byteRMax = 0 ' Rmax für neue Zeile = 0
            For y = intRandLinks To 1536 - intRandRechts 'Pixel
                colorRgbMit = bmpBildMit.GetPixel(x, y) 'RGB Wert vom Pixel des 
                ' Bildes mit Laserlinie
                colorRgbOhne = bmpBildOhne.GetPixel(x, y) 'RGB Wert vom Pixel 
                ' des Bildes ohne Laserlinie
                byteRed = colorRgbMit.R - colorRgbOhne.R ' Differenz der 
                ' Rotwerte
                If (byteRed > byteRMax And byteRed > 30) Then ' Wenn 
                ' byteRed > 30 und größer als der MAximalwert in dieser Zeile
                    byteRMax = byteRed
                    intRotMaxPosition(y) = x
                End If
            Next
        Next
        'fehlerhafte Punkte (zweit weg von Durchschnittswert von 5 Punkten) 
        ' herausfiltern
        'Durchschnittswerte von 5-Fehlerpunkte Bilden und speichern
        For x = intRandUnten + 4 To 2048 - intRandOben Step 5
            intDurchschnitt = (intRotMaxPosition(x - 4) + intRotMaxPosition(x - _
              3) + intRotMaxPosition(x - 2) + intRotMaxPosition(x - 1) + _
              intRotMaxPosition(x)) / 5
            intTeiler = 0
            intPunktesumme = 0
            For byteCount = 0 To 4
                If (intRotMaxPosition(x - byteCount) <= intDurchschnitt + 8 And _
                  intRotMaxPosition(x - byteCount) >= intDurchschnitt - 8) Then
                    intTeiler = intTeiler + 1
                    intPunktesumme = intPunktesumme + intRotMaxPosition(x - _
                      byteCount)
                End If
            Next
            If (intTeiler = 0) Then
                intEnfernungPunkte(intAktuellerSchnitt, System.Math.Round(x / _
                  5)) = -100
            Else
                intEnfernungPunkte(intAktuellerSchnitt, System.Math.Round(x / _
                  5)) = System.Math.Round(intPunktesumme / intTeiler)
            End If
        Next
        ' Ergebnisse in einem Testbild zur Kontrolle speichern (dieser Schritt 
        ' fällt später weg)
        For x = intRandUnten + 4 To 2048 - intRandOben Step 5
            bmpBildMit.SetPixel(x, intEnfernungPunkte(intAktuellerSchnitt, _
              System.Math.Round(x / 5)), Color.Blue)
        Next
        bmpBildMit.Save("Kontrolle" & strPfadBildMit)
    End Sub