Private Sub Command1_Click()
Dim lngColor As Long
Dim x, y As Long
Command1.Caption = "Suche"
y = 500
Do
    x = 174
    Do
        x = x + 1
 
        lngColor = GetColor(x, y)
        Label1.Caption = "x: " & x
        Label2.Caption = "y: " & y
        DoEvents
        If ColorRed(lngColor) + ColorBlue(lngColor) + ColorGreen(lngColor) _
          >= 700 Then
        List2.AddItem (x & " " & y)
        End If
    Loop Until List2.ListCount >= 1 Or x >= 850
    y = y - 7
Loop Until List2.ListCount >= 1 Or y <= 100
 
Command1.Caption = "Fertig"
End Sub