Dim Bild As Bitmap = CType(Form2.PictureBox1.Image.Clone, Bitmap)
 
 
        X = X + 1
 
        If X = 128 Then  'max X Position
            X = 0
            Y = Y + 1
        End If
 
        If Y = 128 Then 'max Y Position
            Y = 0
            X = 0
            Timer1.Enabled = False
        End If
        ' Farbe der Pixel bestimmen 
        Dim RWert As Integer = Bild.GetPixel(X, Y).R
        Dim GWert As Integer = Bild.GetPixel(X, Y).G
        Dim BWert As Integer = Bild.GetPixel(X, Y).B
        Dim AWert As Integer = Bild.GetPixel(X, Y).A
 
        ListBox1.Items.Add(Y & "," & X & "," & RWert & "," & GWert & "," & _
          BWert & "," & AWert)