¿Cómo encuentra VB el color especificado en el área especificada?
Puedes utilizar la función getpixel:
Declarar la función GetPixel Lib "gdi32" alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
Descripción
Obtiene el valor RGB del píxel en la escena del dispositivo especificado
Valor de retorno
Long, el color RGB del punto especificado. ScaleMode = 3
End Sub
Sub privado Form_MouseMove(Botón como entero, Mayús como entero, X como Mayús como entero, X como único, Y como único)
Atenuar x1, x2, y1, y2 como entero
Atenuar color mientras
x1 = 0
x2 = Me.Width
y1 = 0
y2 = Me.Height
Dim r1, g1, b1 como entero
Si (x1 < X < x2 And y1 < Y < y2) Entonces
color = GetPixel(Me.hdc, X, Y)
Depurar.Imprimir color
Si color = 0 Entonces imprime X, Y
Finalizar si
Finalizar sub