Gracias por responder.
Lo que quiero hacer es exactamente lo del 2º codigo pero que no esté obligado a pasar el raton por la picture1, sino que pueda hacerlo por cualquier parte del form, o por cualquier parte de la pantalla si puede ser tambien.
Porque ya se que se puede usar como funcion, como pusiste en el primer codigo, de tal forma que quedaría así:
Código:
Private Function MiraColorPixel() As Long
Dim tPOS As POINTAPI
Dim lColor As Long
Dim lDC As Long
lDC = GetWindowDC(0)
Call GetCursorPos(tPOS)
MiraColorPixel = GetPixel(lDC, tPOS.X, tPOS.Y)
End Function
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.BackColor = MiraColorPixel
End Sub
pero seguiría restringido a la picture1 ("picture1_mousemove"), y amí lo que me interesa no es que esté restringido el movimiento a picture1 sinó a todo el form o a la pantalla entera.