nDC = GetDC(0)
  ScreenPixelColor = GetPixel(nDC, nPoint.x, nPoint.y)
  ReleaseDC 0, nDC

Private Sub Timer3_Timer()
  Dim aX%, aY%, dx%, dy%
  Dim Pt As POINTAPI
  Dim xBreit As Long
  Dim R, G, B
 
  xGo = Text1.Text
  yGo = Text2.Text
  Faktor = Text3.Text
  xBreit = Text4.Text
  Pt.x = xGo
  Pt.y = yGo
  SetCursorPos xGo, yGo
 
  If ZeigerRechts = False Then
   If xwert <= xBreit Then
    Sinus xwert, ywert, Faktor
    dx = xwert + xGo
    dy = ywert + yGo
    Pt.x = dx
    Pt.y = dy
    SetCursorPos Pt.x, Pt.y
    Label1.Caption = "X: " & Pt.x & " Y: " & Pt.y
    Label3.Caption = ScreenPixelColor
    R = (ScreenPixelColor And &HFF&)
    G = (ScreenPixelColor And &HFF00&) \ 256
    B = (ScreenPixelColor And &HFF0000) \ 65536
    Label4.Caption = R & ", " & G & ", " & B
   End If
   If ScreenPixelColor = searchpixel
      MsgBox "Gefunden"
   End If
  xwert = xwert + 1
  End If
  If xwert >= xBreit Then
    ZeigerRechts = True
  End If
  If ZeigerRechts = True Then
   If (xwert + xGo) > xGo Then
    Cosinus xwert, ywert, Faktor
    dx = xwert + xGo
    dy = ywert + yGo
    Pt.x = dx
    Pt.y = dy
    SetCursorPos Pt.x, Pt.y
    Label1.Caption = "X: " & Pt.x & " Y: " & Pt.y
    Label3.Caption = ScreenPixelColor
    R = (ScreenPixelColor And &HFF&)
    G = (ScreenPixelColor And &HFF00&) \ 256
    B = (ScreenPixelColor And &HFF0000) \ 65536
    Label4.Caption = R & ", " & G & ", " & B
   End If
   If ScreenPixelColor = searchpixel
      MsgBox "Gefunden"
   End If
   If xwert <= 0 Then
     Me.Timer3.Enabled = False
     ZeigerRechts = False
   End If
   xwert = xwert - 1
  End If
End Sub