GUICreate("Paint.DE",210,210 + 20)
$Color = GUICtrlCreateInput("",0,210,210,20)

HotKeySet("{Space}","_Save")

Dim $Pixel[21][21]
Dim $Colors[21][21]
GUISetState()
For $x = 0 To 20
    For $y = 0 To 20
        $Pixel[$x][$y] = GUICtrlCreateLabel("",$x * 10,$y * 10,10,10)
        GUICtrlSetBkColor(-1,0xffffff)
    Next
;~  Sleep(100)
Next

$File = "Test.txt"
If FileExists($File) Then
For $x = 0 To 20
    For $y = 0 To 20
        GUICtrlSetBkColor($Pixel[$x][$y],IniRead($File,$x,$y,0xffffff))
    Next
Next
EndIf

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg <= $Pixel[20][20] And $msg >= $Pixel[0][0]
            GUICtrlSetBkColor($msg,GUICtrlRead($Color))
        Case $msg = -3
            Exit
    EndSelect
WEnd