Píxeles y Bucle For

[Hasseds]

De Nadas, usa stopHook para terminar la búsqueda y capturar las coordenadas

Código [Seleccionar] Expandir



   If Not GetPixel(lDC, lParam.x, lParam.y) = &HAA431B Then
       Form1.Caption = ""
   Else
       Form1.Caption = "AA431B " & lParam.x & " " & lParam.y
       StopHook
       Exit Function 'si hace falta
   End If



Si podés usá WindowfromPoint para que solo actúe sobre el control o la ventana que corresponda y  si tenés q cerrar la aplicación desde el code ... Unload Me o cerrar desde la "X" (BOTON CERRAR), saludos