Ich bin noch n Anfänger im Programmieren

Code:
   

VB.net 2008
     
For i2 = 0 To pic_neu.Width - 1

                For i = 0 To pic_neu.Height - 1

                    PixelY = i
                    PixelX = i2
                    PixelwertOrginal = pic_neu.GetPixel(PixelX, PixelY)
                    PixelwertVergleich = pic2_neu.GetPixel(PixelX, PixelY)

                    p1R = CInt(PixelwertVergleich.R)
                    p1G = CInt(PixelwertVergleich.G)
                    p1B = CInt(PixelwertVergleich.B)

                    p2R = CInt(PixelwertOrginal.R)
                    p2G = CInt(PixelwertOrginal.G)
                    p2B = CInt(PixelwertOrginal.B)

                    p1R = ((p1R + p1G + p1B) / 3) - ((p2R + p2G + p2B) / 3)

                    If p1R <= tbEmpfindlichkeit.Value And p1R > tbEmpfindlichkeit.Value * -1 Then   'Ich bin zu faul das aufs Gegenteil umzudenken^^

                    Else
                        SchnittY = SchnittY + i 
                        ZählerY = ZählerY + 1
                        SchnittX = SchnittX + i2
                        ZählerX = ZählerX + 1
                    End If

                Next
Next
If-Else Bedingung: Ich berechne später den Duchschitt aus allen Differenzpixeln und ziele dahin, um es einfach auszufrücken.


Ich zeichne das Bild vorher in ne PictureBox und les dann die Pixel aus.
Bremst bestimmt ganzschön.