Visual Basic - Ayuda urgente por favor... importante.

Hola a todos primero que nada gracias por leer esta nota... les voy a agradecer mucho a el o los que respondan.
Mi inquietud es la siguiente, necesito hacer que el puntero del mouse se SITUE por encima de un pixel con un color determinado.
Por ejemplo si en medio de la pantalla hay un pixel de color #000000 (Negro) que el puntero se situe encima de el.

Muchas gracias!!
[email protected]

Debes usar el Win32API para hacer esto. He aqui el codigo para leer el color del pixel donde tiene puesto el puntero del Mouse:

private Type POINTAPI
x as Long
y as Long
End Type
'
private Declare Function GetPixel Lib "gdi32" (byval hdc as Long, _
byval x as Long, byval y as Long) as Long
private Declare Function GetCursorPos Lib "user32" (lpPoint as POINTAPI) as Long
private Declare Function GetWindowDC Lib "user32" (byval hwnd as Long) as Long
'
private Sub Form_Load()
Timer1.Interval = 100
End Sub
'
private Sub Timer1_Timer()
Dim tPOS as POINTAPI
Dim sTmp as string
Dim lColor as Long
Dim lDC as Long
'
lDC = GetWindowDC(0)
Call GetCursorPos(tPOS)
lColor = GetPixel(lDC, tPOS.x, tPOS.y)
Label2.BackColor = lColor
'
sTmp = Right$("000000" & Hex(lColor), 6)
Caption = "R:" & Right$(sTmp, 2) & " G:" & mid$(sTmp, 3, 2) & " B:" & Left$(sTmp, 2)
End Sub

Saludos
Yamil