1:
2:
3:
4:

Dim p As Array = fg.FindPixel(Color.Black, 1) 
TextBox1.Text = p.ToString

1:
2:
3:

        If p.Length > 0 Then
            TextBox1.Text = p(0).ToString()
        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

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

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim fg As FastGraphicsLib.FastGraphics = FastGraphicsLib.FastGraphics.FromScreen(New Rectangle(50, 50, 200, 200))
        Dim p As Array = fg.FindPixel(Color.Black, 1)
        If p.Length > 0 Then
            TextBox1.Text = p(0).ToString()
        Else
            TextBox1.Text = "kein Punkt gefunden"
        End If
    End Sub

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:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Public Function FindPixel(ByVal cl As Color, ByVal Optional varianz As Byte = 0) As Point()
    Dim list As New List(Of Point)
    Dim num4 As Integer = ((Me.bmp1.Width * Me.bmp1.Height) - 1)
    Dim i As Integer = 0
    Do While (i <= num4)
        Dim color As Color = Color.FromArgb(Marshal.ReadInt32(Me.p, i))
        If ((((((color.R >= If(((cl.R - varianz) < 0), 0, CByte((cl.R - varianz)))) And (color.R <= If(((cl.R + varianz) > &HFF), &HFF, CByte((cl.R + varianz))))) And (color.G >= If(((cl.G - varianz) < 0), 0, CByte((cl.G - varianz))))) And (color.G <= If(((cl.G + varianz) > &HFF), &HFF, CByte((cl.G + varianz))))) And (color.B >= If(((cl.B - varianz) < 0), 0, CByte((cl.B - varianz))))) And (color.B <= If((CByte((cl.B + varianz)) > &HFF), &HFF, CByte((cl.B + varianz))))) Then
            Dim y As Integer = CInt(Math.Round(CDbl(((CDbl(i) / CDbl(Me.bmpdata.Width)) / 3))))
            Dim x As Integer = CInt(Math.Round(CDbl(((CDbl(i) / 3) - (y * Me.bmpdata.Width)))))
            Dim item As New Point(x, y)
            list.Add(item)
        End If
        i = (i + 3)
    Loop
    Return list.ToArray
End Function

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

Public Class Form1

    Public Function FindPixel(ByVal farbe As Color, ByVal bmp As Bitmap) As List(Of Point)
        Dim x, y As Integer
        Dim liste As List(Of Point) = New List(Of Point)
        For x = 0 To bmp.Width - 1
            For y = 0 To bmp.Height - 1
                If bmp.GetPixel(x, y) = farbe Then
                    liste.Add(New Point(x, y))
                End If
            Next
        Next
        Return liste
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim bmp As Bitmap = PictureBox1.Image
        Dim farbe As Color = Color.FromArgb(0, 0, 0)
        Dim liste As List(Of Point) = FindPixel(farbe, bmp)
        ListBox1.Items.Clear()
        For Each p As Point In liste
            ListBox1.Items.Add(p.ToString())
        Next
    End Sub
End Class