#include <GUIConstantsEx.au3>
Dim $coord[2], $oldCoord[2]
$hGUI = GUICreate ("coord", 100, 50)
Local $label = GUICtrlCreateLabel ("", 50, 25, 80, 25)
Local $label_1 = GUICtrlCreateLabel ("", 5, 25, 45, 25)
Local $label_2 = GUICtrlCreateLabel ("", 5, 10, 90, 10)
GUISetState()
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
$coord = MouseGetPos()
If $coord[0] <> $oldCoord[0] Or $coord[1] <> $oldCoord[1] Then
GUICtrlSetData ($label, $coord[0] &"x"& $coord[1])
$oldCoord = $coord
$color = PixelGetColor( $coord[0],$coord[1])
GUICtrlSetData ($label_1, Hex ($color,6))
GUICtrlSetBkColor ($label_2, $color)
EndIf
WEnd