1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Dim fg As FastGraphicsLib.FastGraphics = FastGraphicsLib.FastGraphics.FromBitmap(PictureBox1.Image)        
Dim p As Array = fg.FindPixel(Color.Black, 10)        
If p.Length > 0 Then              
For Each a As Point In fg.FindPixel(Color.Black, 10)                 ListBox1.Items.Add(a.X)                
ListBox2.Items.Add(a.Y)             
Next             
fg.Unlock()        
Else            
TextBox1.Text = "kein Punkt gefunden"            
fg.Unlock()        
 End If

1:
2:
3:
4:

Dim pixel As New List(Of Point)  For Each p As Point In fg.FindPixel(Color.Black,1)  pixel.Add(p) Next
For i = 0 To pixel.Count
 ListBox1.Items.Add(pixel.Item(i).X & pixel.Item(i).Y)
Next