Código:
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