Public Sub Entfernungsberechnungschnell(ByVal strPfadBildMit As String, ByVal _
    strPfadBildOhne As String, ByVal intAktuellerSchnitt As Integer)
        Dim x, y As Integer
        Dim rect As New Rectangle(intRandOben, intRandLinks, 2048 - _
          intRandUnten - intRandOben, 1536 - intRandLinks - intRandRechts)
        Dim bytes = (2048 - intRandUnten - intRandOben) * (1536 - intRandLinks _
        - intRandRechts) * 3
        Dim PixelsBildMit(bytes - 1) As Byte
        Dim PixelsBildOhne(bytes - 1) As Byte
        Dim bmpBildMit As Bitmap = New Bitmap(strPfadBildMit)
        Dim bmpBildMitData As System.Drawing.Imaging.BitmapData = _
          bmpBildMit.LockBits(rect, Imaging.ImageLockMode.ReadOnly, _
          bmpBildMit.PixelFormat) 'Format?
        Dim ptrBildMit As IntPtr = bmpBildMitData.Scan0
        Dim bmpBildOhne As Bitmap = New Bitmap(strPfadBildOhne)
        Dim bmpBildOhneData As System.Drawing.Imaging.BitmapData = _
          bmpBildOhne.LockBits(rect, Imaging.ImageLockMode.ReadOnly, _
          bmpBildOhne.PixelFormat) 'Format?
        Dim ptrBildOhne As IntPtr = bmpBildOhneData.Scan0
        Dim Width As Integer = bmpBildMitData.Width
        Dim Height As Integer = bmpBildMitData.Height
        Dim Stride As Integer = bmpBildMitData.Stride
        Dim intRotDifferenz As Integer
        Dim byteRotMax As Byte
        Dim intLaserPosition(Width) As Integer
        Dim loc As Integer
        Marshal.Copy(ptrBildMit, PixelsBildMit, 0, bytes)
        Marshal.Copy(ptrBildOhne, PixelsBildOhne, 0, bytes)
 
 
        For x = 0 To Width
            byteRotMax = 0
            For y = 0 To Height
                loc = y * Stride + x * 3 + 2
                intRotDifferenz = PixelsBildMit(loc) - PixelsBildOhne(loc)
                If intRotDifferenz > 30 And intRotDifferenz > byteRotMax Then
                    intLaserPosition(x) = y
                    byteRotMax = intRotDifferenz
                End If
            Next
        Next
 
    End Sub