Private Declare Function SetPixel Lib "gdi32.dll" (ByVal hdc As Long, _
  ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long
 
 
Private Sub Command1_Click()
 
Dim Farbe&, X&, Y&, xoben&, yoben&, xlinks&, ylinks&, xrechts&, yrechts&
Dim Rot&, Gruen&, Blau&
Dim i As Long
Dim ende as integer
 
With Picture1
  .ScaleMode = vbPixels
  .AutoRedraw = True
 
  For Y = 1 To .ScaleHeight - 1
  if ende = 1 then Exit For
  i = 0
    For X = 0 To .ScaleWidth - 1
        Farbe = GetPixel(.hdc, X, Y)
        Rot = Farbe And vbRed
        Gruen = (Farbe And vbGreen) \ &H100
        Blau = (Farbe And vbBlue) \ &H10000
        If Rot < 250 And Gruen < 250 And Blau < 250 Then i = i + 1
        If i > 20 Then
            xoben = X
            yoben = Y
            ende = 1
            Exit For
        End If
    Next X
   Next Y