From 4188be2a76f8aed89ef682ff6df01b83babea22b Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Sat, 22 Oct 2016 10:09:59 -0200
Subject: [PATCH] File loading/saving routines implemented. Also:

- New list box method: __UI_ReplaceListBoxItem.
- Menu items can have icons.
---
 InForm.ui           |  126 +++--
 InForm/disk.png     |  Bin 0 -> 12965 bytes
 UiEditor.bas        | 1128 ++++++++++++++++++++++++++++++-------------
 UiEditor.frm        |  131 ++---
 UiEditorPreview.bas |  137 ++++--
 xp.uitheme          |   49 +-
 6 files changed, 1071 insertions(+), 500 deletions(-)
 create mode 100644 InForm/disk.png

diff --git a/InForm.ui b/InForm.ui
index c500130..549b9df 100644
--- a/InForm.ui
+++ b/InForm.ui
@@ -57,6 +57,7 @@ TYPE __UI_ControlTYPE
     Interval AS _FLOAT
     HotKey AS INTEGER
     HotKeyOffset AS INTEGER
+    HotKeyPosition AS INTEGER
     ShowPercentage AS _BYTE
     InputViewStart AS LONG
     PreviousInputViewStart AS LONG
@@ -137,13 +138,13 @@ DIM SHARED __UI_ActiveMenu AS LONG, __UI_ParentMenu AS LONG
 DIM SHARED __UI_ActiveTipID AS LONG, __UI_TipTimer AS DOUBLE
 DIM SHARED __UI_ActiveTipTop AS INTEGER, __UI_ActiveTipLeft AS INTEGER
 DIM SHARED __UI_FormID AS LONG, __UI_HasMenuBar AS LONG
-DIM SHARED __UI_ScrollbarWidth AS INTEGER
-DIM SHARED __UI_ScrollbarButtonHeight AS INTEGER
+DIM SHARED __UI_ScrollbarWidth AS INTEGER, __UI_ScrollbarButtonHeight AS INTEGER
+DIM SHARED __UI_MenuBarOffset AS INTEGER, __UI_MenuItemOffset AS INTEGER
 DIM SHARED __UI_ForceRedraw AS _BYTE, __UI_AutoRefresh AS _BYTE
 DIM SHARED __UI_CurrentTitle AS STRING, __UI_WindowHandle AS LONG
 DIM SHARED __UI_DesignMode AS _BYTE, __UI_FirstSelectedID AS LONG, __UI_ResizingForm AS _BYTE
 DIM SHARED __UI_WaitMessage AS STRING, __UI_TotalSelectedControls AS LONG
-DIM SHARED __UI_WaitMessageHandle AS LONG, __UI_ControlOperation AS _BYTE
+DIM SHARED __UI_WaitMessageHandle AS LONG
 
 'Control types:
 DIM SHARED __UI_Type(0 TO 17) AS __UI_Types
@@ -211,6 +212,8 @@ CONST __UI_MsgBox_Continue = 11
 CONST __UI_True = -1
 CONST __UI_False = 0
 
+ON ERROR GOTO __UI_ErrorHandler
+
 __UI_LoadForm
 
 __UI_Init
@@ -220,6 +223,10 @@ DO
     _LIMIT 1
 LOOP
 
+SYSTEM
+__UI_ErrorHandler:
+RESUME NEXT
+
 '---------------------------------------------------------------------------------
 SUB __UI_Init
     DIM i AS LONG
@@ -231,7 +238,7 @@ SUB __UI_Init
 
     IF __UI_Controls(__UI_FormID).CenteredWindow THEN _SCREENMOVE _MIDDLE
 
-    IF __UI_Controls(__UI_FormID).Font = 0 THEN __UI_Controls(__UI_FormID).Font = __UI_Font("VGA Emulated", "", 16, "")
+    IF __UI_Controls(__UI_FormID).Font = 0 THEN __UI_Controls(__UI_FormID).Font = __UI_Font("", 16, "")
 
     IF __UI_Captions(__UI_FormID) = "" THEN __UI_Captions(__UI_FormID) = RTRIM$(__UI_Controls(__UI_FormID).Name)
 
@@ -555,6 +562,8 @@ SUB __UI_UpdateDisplay
 
     IF __UI_AutoRefresh = __UI_False THEN EXIT SUB
 
+    ON ERROR GOTO __UI_ErrorHandler
+
     __UI_BeforeUpdateDisplay
 
     'Clear frames canvases and count its children:
@@ -1335,12 +1344,10 @@ SUB __UI_EventDispatcher
                 __UI_Controls(__UI_DraggingID).Top = __UI_PreviewTop
                 __UI_Controls(__UI_DraggingID).Left = __UI_PreviewLeft
                 __UI_DraggingID = 0
-                __UI_EndDrag
             END IF
             IF __UI_IsResizing THEN
                 __UI_IsResizing = __UI_False
                 __UI_ResizingID = 0
-                __UI_EndResize
             END IF
             IF __UI_DraggingThumb THEN
                 __UI_DraggingThumb = __UI_False
@@ -2063,7 +2070,6 @@ SUB __UI_EventDispatcher
                         NEXT
                     END IF
                 END IF
-                __UI_ControlOperation = __UI_True
             CASE ASC("C"), ASC("c")
                 IF __UI_CtrlIsDown AND __UI_TotalSelectedControls > 0 THEN
                     ControlClipboard$ = MKL$(__UI_TotalSelectedControls)
@@ -2074,7 +2080,6 @@ SUB __UI_EventDispatcher
                     NEXT
                     _CLIPBOARD$ = "InForm" + CHR$(1)
                 END IF
-                __UI_ControlOperation = __UI_True
             CASE ASC("V"), ASC("v")
                 IF __UI_CtrlIsDown THEN
                     Clip$ = _CLIPBOARD$
@@ -2122,7 +2127,6 @@ SUB __UI_EventDispatcher
                         __UI_AutoRefresh = __UI_True
                     END IF
                 END IF
-                __UI_ControlOperation = __UI_True
             CASE 21248 'Delete
                 FOR i = 1 TO UBOUND(__UI_Controls)
                     IF __UI_Controls(i).ControlIsSelected THEN
@@ -2140,7 +2144,6 @@ SUB __UI_EventDispatcher
                         __UI_TotalSelectedControls = __UI_TotalSelectedControls - 1
                     END IF
                 NEXT
-                __UI_ControlOperation = __UI_True
             CASE 19200 'Left arrow key
                 FOR i = 1 TO UBOUND(__UI_Controls)
                     IF __UI_Controls(i).ControlIsSelected THEN
@@ -2204,8 +2207,8 @@ FUNCTION __UI_GetFontID (FontHandle&)
 END FUNCTION
 
 '---------------------------------------------------------------------------------
-FUNCTION __UI_Font& (NewFontName AS STRING, NewFontFile AS STRING, NewFontSize AS INTEGER, NewFontAttributes AS STRING)
-    DIM NextSlot AS LONG, i AS LONG, Temp$
+FUNCTION __UI_Font& (NewFontFile AS STRING, NewFontSize AS INTEGER, TempNewFontAttributes AS STRING)
+    DIM NextSlot AS LONG, i AS LONG, Temp$, NewFontAttributes AS STRING
 
     'If the passed font is already loaded, we'll just return its handle
     FOR NextSlot = 1 TO UBOUND(__UI_Controls)
@@ -2242,13 +2245,41 @@ FUNCTION __UI_Font& (NewFontName AS STRING, NewFontFile AS STRING, NewFontSize A
     __UI_DestroyControl __UI_Controls(NextSlot) 'This control is inactive but may still retain properties
     __UI_Controls(NextSlot).ID = NextSlot
     __UI_Controls(NextSlot).Type = __UI_Type_Font
-    __UI_Controls(NextSlot).Name = NewFontName
+    __UI_Controls(NextSlot).Name = "Font" + LTRIM$(STR$(__UI_Type(__UI_Type_Font).Count))
 
     IF NewFontFile = "" THEN
         'Internal emulated fonts
-        __UI_Controls(NextSlot).Value = NewFontSize
-        __UI_Controls(NextSlot).Max = NewFontSize
+        IF NewFontSize <> 8 AND NewFontSize <> 16 THEN
+            __UI_Controls(NextSlot).Value = 16
+            __UI_Controls(NextSlot).Max = 16
+        ELSE
+            __UI_Controls(NextSlot).Value = NewFontSize
+            __UI_Controls(NextSlot).Max = NewFontSize
+        END IF
     ELSE
+        'Parse attributes
+        IF INSTR(UCASE$(TempNewFontAttributes), "MONOSPACE") THEN NewFontAttributes = "MONOSPACE"
+        IF INSTR(UCASE$(TempNewFontAttributes), "BOLD") THEN
+            IF LEN(NewFontAttributes) > 0 THEN NewFontAttributes = NewFontAttributes + ","
+            NewFontAttributes = NewFontAttributes + "BOLD"
+        END IF
+        IF INSTR(UCASE$(TempNewFontAttributes), "ITALIC") THEN
+            IF LEN(NewFontAttributes) > 0 THEN NewFontAttributes = NewFontAttributes + ","
+            NewFontAttributes = NewFontAttributes + "ITALIC"
+        END IF
+        IF INSTR(UCASE$(TempNewFontAttributes), "UNDERLINE") THEN
+            IF LEN(NewFontAttributes) > 0 THEN NewFontAttributes = NewFontAttributes + ","
+            NewFontAttributes = NewFontAttributes + "UNDERLINE"
+        END IF
+        IF INSTR(UCASE$(TempNewFontAttributes), "UNICODE") THEN
+            IF LEN(NewFontAttributes) > 0 THEN NewFontAttributes = NewFontAttributes + ","
+            NewFontAttributes = NewFontAttributes + "UNICODE"
+        END IF
+        IF INSTR(UCASE$(TempNewFontAttributes), "DONTBLEND") THEN
+            IF LEN(NewFontAttributes) > 0 THEN NewFontAttributes = NewFontAttributes + ","
+            NewFontAttributes = NewFontAttributes + "DONTBLEND"
+        END IF
+
         __UI_Controls(NextSlot).Value = _LOADFONT(NewFontFile, NewFontSize, NewFontAttributes)
         __UI_Controls(NextSlot).Max = NewFontSize
         __UI_Texts(NextSlot) = NewFontFile
@@ -2259,6 +2290,7 @@ FUNCTION __UI_Font& (NewFontName AS STRING, NewFontFile AS STRING, NewFontSize A
         'If loading the requested font fails, we default to _FONT 16
         IF __UI_Controls(NextSlot).Value <= 0 THEN
             __UI_DestroyControl __UI_Controls(NextSlot)
+            __UI_Controls(NextSlot).Value = 16
             __UI_Font& = 16
         END IF
     END IF
@@ -2320,7 +2352,7 @@ FUNCTION __UI_NewControl (ControlType AS INTEGER, ControlName AS STRING, NewWidt
         __UI_Controls(NextSlot).Font = __UI_Controls(ParentID).Font
     END IF
 
-    IF __UI_Controls(NextSlot).Font = 0 THEN __UI_Controls(NextSlot).Font = __UI_Font("VGA Emulated", "", 16, "")
+    IF __UI_Controls(NextSlot).Font = 0 THEN __UI_Controls(NextSlot).Font = __UI_Font("", 16, "")
 
     __UI_Controls(NextSlot).Width = NewWidth
     __UI_Controls(NextSlot).Height = NewHeight
@@ -2504,7 +2536,7 @@ END SUB
 '---------------------------------------------------------------------------------
 SUB __UI_SetCaption (Control$, TempCaption$)
     DIM i AS LONG, FindSep%, ThisID AS LONG, NewCaption$, UsedList$, TempKey AS _UNSIGNED _BYTE
-    DIM PrevFont AS LONG, TempCanvas AS LONG, PrevDest AS LONG, ItemOffset AS INTEGER
+    DIM PrevFont AS LONG, TempCanvas AS LONG, PrevDest AS LONG
 
     ThisID = __UI_GetID(Control$)
     IF ThisID = 0 THEN EXIT SUB
@@ -2524,6 +2556,7 @@ SUB __UI_SetCaption (Control$, TempCaption$)
         TempKey = ASC(UCASE$(NewCaption$), FindSep%)
         IF INSTR(UsedList$, CHR$(TempKey)) = 0 THEN
             __UI_Controls(ThisID).HotKey = TempKey
+            __UI_Controls(ThisID).HotKeyPosition = FindSep%
 
             PrevFont = _FONT
 
@@ -2580,10 +2613,6 @@ SUB __UI_LoadImage (This AS __UI_ControlTYPE, File$)
 
     IF This.HelperCanvas <> 0 THEN _FREEIMAGE This.HelperCanvas
 
-    IF This.Type = __UI_Type_PictureBox OR This.Type = __UI_Type_Button THEN
-        __UI_Texts(This.ID) = File$
-    END IF
-
     IF _FILEEXISTS(File$) THEN
         This.HelperCanvas = _LOADIMAGE(File$, 32)
         IF This.HelperCanvas = -1 THEN ErrorMessage$ = "Unable to load file:"
@@ -2607,6 +2636,10 @@ SUB __UI_LoadImage (This AS __UI_ControlTYPE, File$)
         _PRINTSTRING (5, 5), ErrorMessage$
         _PRINTSTRING (5, 5 + _FONTHEIGHT), File$
         _DEST PrevDest
+    ELSE
+        IF This.Type = __UI_Type_PictureBox OR This.Type = __UI_Type_Button OR This.Type = __UI_Type_MenuItem THEN
+            __UI_Texts(This.ID) = File$
+        END IF
     END IF
 END SUB
 
@@ -2783,7 +2816,7 @@ SUB __UI_RemoveListBoxItem (WhichListBox$, ItemToRemove AS INTEGER)
     DIM This AS __UI_ControlTYPE, TempText$, ThisItem%, FindLF&, TempCaption$
 
     This = __UI_Controls(__UI_GetID(WhichListBox$))
-    IF This.Type <> __UI_Type_ListBox THEN ERROR 5: EXIT SUB
+    IF This.Type <> __UI_Type_ListBox AND This.Type <> __UI_Type_DropdownList THEN ERROR 5: EXIT SUB
 
     IF ItemToRemove > This.Max THEN ERROR 6: EXIT SUB
 
@@ -2816,6 +2849,38 @@ SUB __UI_RemoveListBoxItem (WhichListBox$, ItemToRemove AS INTEGER)
     __UI_Controls(This.ID) = This
 END SUB
 
+'---------------------------------------------------------------------------------
+SUB __UI_ReplaceListBoxItem (WhichListBox$, ItemToReplace AS INTEGER, NewText$)
+    DIM This AS __UI_ControlTYPE, TempText$, ThisItem%, FindLF&, TempCaption$
+
+    This = __UI_Controls(__UI_GetID(WhichListBox$))
+    IF This.Type <> __UI_Type_ListBox AND This.Type <> __UI_Type_DropdownList THEN ERROR 5: EXIT SUB
+
+    IF ItemToReplace > This.Max THEN ERROR 6: EXIT SUB
+
+    TempText$ = __UI_Texts(This.ID)
+    __UI_Texts(This.ID) = ""
+
+    ThisItem% = 0
+    DO WHILE LEN(TempText$)
+        ThisItem% = ThisItem% + 1
+        FindLF& = INSTR(TempText$, CHR$(13))
+        IF FindLF& THEN
+            TempCaption$ = LEFT$(TempText$, FindLF& - 1)
+            TempText$ = MID$(TempText$, FindLF& + 1)
+        ELSE
+            TempCaption$ = TempText$
+            TempText$ = ""
+        END IF
+
+        IF ThisItem% <> ItemToReplace THEN
+            __UI_Texts(This.ID) = __UI_Texts(This.ID) + TempCaption$ + CHR$(13)
+        ELSE
+            __UI_Texts(This.ID) = __UI_Texts(This.ID) + NewText$ + CHR$(13)
+        END IF
+    LOOP
+END SUB
+
 '---------------------------------------------------------------------------------
 SUB __UI_ListBoxSearchItem (This AS __UI_ControlTYPE)
     STATIC SearchPattern$, LastListKeyHit AS DOUBLE
@@ -2968,7 +3033,7 @@ END SUB
 
 '---------------------------------------------------------------------------------
 SUB __UI_ActivateMenu (This AS __UI_ControlTYPE, SelectFirstItem AS _BYTE)
-    DIM i AS LONG, ItemOffset AS INTEGER, TotalItems AS INTEGER, ItemHeight AS INTEGER
+    DIM i AS LONG, TotalItems AS INTEGER, ItemHeight AS INTEGER
 
     IF NOT This.Disabled THEN
         IF __UI_ActiveMenu > 0 THEN __UI_DestroyControl __UI_Controls(__UI_ActiveMenu)
@@ -2987,17 +3052,13 @@ SUB __UI_ActivateMenu (This AS __UI_ControlTYPE, SelectFirstItem AS _BYTE)
             __UI_Controls(__UI_ActiveMenu).Top = __UI_MouseTop
         END IF
 
-        IF _PRINTWIDTH("W") <> _PRINTWIDTH("I") THEN ItemOffset = _PRINTWIDTH("____") ELSE ItemOffset = _PRINTWIDTH("__")
-
         'Calculate panel's width and position the menu items
-        __UI_Controls(__UI_ActiveMenu).Width = 120
-
         ItemHeight = _FONTHEIGHT * 1.5
         __UI_Controls(__UI_ActiveMenu).Height = _FONTHEIGHT * .3
         FOR i = 1 TO UBOUND(__UI_Controls)
             IF __UI_Controls(i).ParentID = This.ID AND NOT __UI_Controls(i).Hidden THEN
                 TotalItems = TotalItems + 1
-                __UI_Controls(i).Width = ItemOffset * 2 + _PRINTWIDTH(__UI_Captions(i))
+                __UI_Controls(i).Width = __UI_MenuItemOffset * 2 + _PRINTWIDTH(__UI_Captions(i))
                 IF __UI_Controls(__UI_ActiveMenu).Width < __UI_Controls(i).Width THEN
                     __UI_Controls(__UI_ActiveMenu).Width = __UI_Controls(i).Width
                 END IF
@@ -3138,26 +3199,25 @@ END FUNCTION
 '---------------------------------------------------------------------------------
 SUB __UI_RefreshMenuBar
     'Calculate menu items' .Left and .Width
-    DIM LeftOffset AS INTEGER, ItemOffset AS INTEGER, i AS LONG
+    DIM LeftOffset AS INTEGER, i AS LONG
     DIM TotalItems AS INTEGER, LastMenuItem AS LONG
 
     _FONT (__UI_Controls(__UI_FormID).Font)
-    IF _PRINTWIDTH("W") <> _PRINTWIDTH("I") THEN ItemOffset = _PRINTWIDTH("__") ELSE ItemOffset = _PRINTWIDTH("__")
 
     FOR i = 1 TO UBOUND(__UI_Controls)
         IF __UI_Controls(i).ID > 0 THEN
             IF __UI_Controls(i).Type = __UI_Type_MenuBar AND NOT __UI_Controls(i).Hidden THEN
                 TotalItems = TotalItems + 1
                 IF TotalItems = 1 THEN
-                    LeftOffset = ItemOffset
+                    LeftOffset = __UI_MenuBarOffset
                 ELSE
                     LeftOffset = LeftOffset + __UI_Controls(LastMenuItem).Width
                 END IF
-                __UI_Controls(i).Width = ItemOffset + _PRINTWIDTH(__UI_Captions(i)) + ItemOffset
+                __UI_Controls(i).Width = __UI_MenuBarOffset + _PRINTWIDTH(__UI_Captions(i)) + __UI_MenuBarOffset
                 IF __UI_Controls(i).Align = __UI_Left THEN
                     __UI_Controls(i).Left = LeftOffset
                 ELSE
-                    __UI_Controls(i).Left = __UI_Controls(__UI_FormID).Width - 1 - ItemOffset - __UI_Controls(i).Width
+                    __UI_Controls(i).Left = __UI_Controls(__UI_FormID).Width - 1 - __UI_MenuBarOffset - __UI_Controls(i).Width
                 END IF
                 LastMenuItem = i
             END IF
diff --git a/InForm/disk.png b/InForm/disk.png
new file mode 100644
index 0000000000000000000000000000000000000000..71dfaf8ba057a57f419facfddd1a695ec4b2a711
GIT binary patch
literal 12965
zcmaKTc|4R~`1W}oGt3w<W8aOPtflPB*q0<^i(*K$2$ezxk0o0wOG2^~l}gqM5o0MW
zLZ$3X6lIs}+xzr=|9Jm+f1lr9Gd|9o=bZb#uj{_geVr%K*2a7ns~{@?V3(zZi9G-i
z`V|5=X7uCe`C=ac_WD_x7&?UX&*ZY)5qjNMV}2}Hc4+OfLTN8mh^dr&B{r6qd=pqA
zQWPVcUhE%|w)ovXME*g#${J@H-2j^IeIUTZoa1#n+&9PP_y%oaYN9UPW^1RRs_wIu
z?9ii`lAz0CJKsJ(b$W7kv0X>4PL0`&Xwu}>6~=^%?&9DChTN)BAX<)U0Wfy-6o9*j
zh(kmZ$QULkz;PG~5zB^0$gKRwu&U=qTfZ>wvpulAcf#l{Q7zj#&aRNXclC`>S-{r|
zVfcFn4-Vz)^Sbj2ux-gIYzoU3e#)8+W2#@FKMVi)J|kyupU)5mB<?(%|D$Scx~0U&
z#+=>qoqG6z&8zj=#+@zFs~4GMW*Ae><{pue4E9=VzTY6%&n|6j?fjaZb$=PLwf-XL
z#SuQ}ZQ_nVR>_u9e64{Ei%5{_lShvlesxA}FLLz_UKh&^y?*Xjm!N`$Of1Wbo*DI^
zm7qe8D`M%<a#saD4}1t};9<pPfAk?-6Vm9PJHLdPZP=K#6?|eTXtAmG{ihx}F`i=C
znr%f{8yH(C&&$iZ!B}cNn4`WwQS*gBs^6$N90i^f7gOV{bKW!zt<Bud)d{W-sBlRe
zsEDv>o=+WXb5Z=3YHGSXnwB<tKE)cxehTMzdU?Ix$JkTKe4!}R<;$92USwnE6vvhN
zTyluBv2n|Fa$LG)sei#yU1l-sMXI(`-@L(Lh*FW|dtEv6K=v*F;rg}Hh7YCmR2N#b
zLU^Zjsk`ICkNZ?*AI!NVSJijcZ*d~OYIxW^f|%A{p(!gtWGnyt`Mmmf`a8A@q4lEk
zWHXWEeHY{<s_B?NUo$WIb<XD2<Bqtx3SKN_k>G)f%L*edMBYhGN%`L2;#|*sEvq17
zWve|MgQO=ugznJv^IgGGxd>Nvz{sr4PfdJX|DFXFc-!}Y@O`uRFMT4>#dRYwtme<!
zf0thu)~ft970}=lHZ`?odGK<Zmrd;X=m(veNsbOqi@&1z@9-Zq`}Sq%qk6-N%;LtY
z_TP%TCbHh8c+HCKmOppNt)M2#v2QDKf7-?Y{2)Cu-dkzwBU`GoR#SYVq>|X5P`yhD
zekEkQu}bWYf3+J4A?$sNue&sJ+WN%U6&&Dd9GMGyQGc(0??&;Ji1?OwMJG%0cQLhu
z4jmiTt83W(_{mc>@6!P{9%hQ*w07=D^3Au3dEMs4<3%c5OQzFrjKrUkRFFScJ~}FK
z>(`%DWgg>pU1R$X->p2KZ=Z@6`?TM$6|#BD*f*@kRFs2M)Kw|<_RgO@8R`2FI|aNU
zx?5+-`ue)kqo;Pqi(2R6TRl!?U+BJvv>Z8YC9`4*)zs-+Ht1b_QSs{Okf!Zy*>1P*
zl`b~)dwLuh^DA*2VjaBU6Bs5F@@4?*Ul!SrhCR--r3}8l?T$-MM~(>WHMHB?+7eXj
zC6Inr&i-AAwZ-2vay|mvc&X;%wQXbeoFO+gzap;E3vZsicPTn}OM=OQFtnjlKcF74
zcY0*x)H&l%{8(TbePq|JUA2-xblG@RMWL*`Jxfmm+)a}YJs{{ppIfSav9GR3WG?d5
z{iEGqYa5H}o(#aA9_2NyO)YHCex#bW@7Z1-UA(p_bt-GE&29fXGl}J1@2wi@PyVA!
zo%$Pm%byP@s4i4Z-o6WIJ-l_^FE7O#dW*mFXyP@=FrjeTP)>rA#-wBCe&p0Xw-U3r
zxrZP7zQv^XH80Qh{T_1Kc!V{IWU}aFvb#8oqsT92-pX)e*Q41K6t{Y^u5MZG6noWq
zf7nU_w*^-!UX1%VIqKbXbZ{{A7sEgyeaQk}dQW5?EBHFgsnyEFq1&7nxoxU`y8EP)
zyZgJVISUdYiBYF#xFR?s_8cjX){-+9=qG?k!^fDv%o?wDY|5*uTG(nESt4{aFl6a%
zdX<fD_K82wT9`~tU+YfyR7M{oQO+Dzh>>9GZA{uFVBd5|pOre^-qM@lylth8IBbgD
zloNQ9Ce2Y9xkbRL?xyWJnfT6!u_A)O;wgR3t9m=P4r$ab&zzCFvLc%Gv=Q8F^%xCw
zl@Xy?(A^zwI%FFhZiY|#pAeZ5DS_KPoSc*i^cJ7aypGa_b^Fj$Gd5|(1gdI^*V!<8
zm#0pbdX62SfE^!6vt%|8CReYD;~9rj)|kAoz+imDbtC&pg=c{LCi;}-#Ku-n0S!-k
zx=(eEDuyr0737i;@t-^;&z>nNB9hm$UY9m*?`}}+zs*mhhSh%bIT5+qqBmVTk;eih
z<NnR9w0F^Y_@$IBaDi&Wr+l0bTsSPRFGT;#4I1CEa7ONt+O8OrWiC<A!7G@WI7Xd=
zvXV<`E3z*>dtPC$+Sp?Eo+~V%EM6r1uivGyYds4mo;Q$j;S{KMM*Y&j*+>ku8M8}B
zT>`b&N?~$_=GBnsZe!qf#vu54^>YMRuj45%TU6%#?9L^gnAVhDxO&iA4k+&IpFNAn
z6<pD3+U#Xcmc`7G@93<^)u{U4JQH|$Kz+gURg}MlHB&vapSn=p&szh1BiqZuLfSzt
ztAbsu)(Jl|PSp3g@<D!UgI_;=dYljLaqUE<tj?V8P~o)%J}-QG{J#x$x6f_w-o2Zh
zK;7P~o$k;H`1#?%ZrPurOm?=hX`)HM|K)F|<;b0tV5h@s`_ScM-T92;oz>F&iV8vh
zl000@wUbrBGMTohAV;F-9jl{&gW(v}08v(kdV}BNfrP2oO#X4{e$@kO^?v!jgEsY1
z*rqU^;=Ow=azleOHC9HzC`Q$bztQaPZa8RC99d2DIGSz1YYOTb4=N%$vo%*#a;}3C
zC&HQNCI8-eeU45gURu^39a*7jQcpFt>FD<4$_B$r0xC+9K->ae9XyFqWy2OYV+!KI
zkJcSFsfejx6<n~>lL)OwBPqBymjcWy1_BzhRjyW_fAG?uc5ga2_*)f0r9MH7=I8$2
zsRGPhZ|$E%b8T7quzkcx^l+P+SSp5!g*KylpziK&ToQ<z<c0j63@AE*l+_8!XrvHl
zqf*-H(uXx3FD$|#{0OTWJo|}^<g8Xcl2K;cI$&khTQ}!V<@2E7TZWn5zmM~_1JHKO
zB<e4=$k$E;PRb-|y_xErsI9HJ9jc?_*BE`6sEpvb-t0UtF8*<c>CJVH{u1@$l-iH>
zzV|R)gTm&(UIE!Oar``$(R_ixM-Q933+8<!3T5EcDUbX#Y}WzUf{8}^=2H~|X1zQ0
zRt`nMU3=i(m!@}sjCEF^s&Lm0@<Jx1qw~D@gfqV;tjTKBA{4r&m!ZS8u+h6G@yl-p
zi7uUav|~j8oANZ=88e^RsA~zo1wZvsx2zUYp<ifd@yR2<)qM1is`<4_pX{Sv|FOx+
zWD3m1!liJG6<VJI2H8lg&h!!iW+2o3GWLrV*x6`2H1AAn$Z>`2S;9V4^eK`Ng9_B#
zYtady259TF;ux*zhmH|gLMwtK4=PLVB!J0U;3Wy_x#n?~7C&mtpE!ICl;aQ*y6Lk&
z;FR4^l?vjUZwhIKULc!-N0NB@``P+MWg@*X7EkH)p{tm%GFTqoX<&|6auE;9lK76J
zRtHJi>OzA-UzX5CVi6MJfa!g!TsLiX4Z}$01Q(Co(zd^##LDnrE{o(b!_2>a;hIXK
zpE|>keu%Z@fKQ$}?Ipb%su@ZHMZS=cVg}1i2{^EFm(VjFx>~0NOqT$7^2Pbh<IhkI
zTVdrvN=X1mZB&Ks1f7n+71U-E=>9iMfVpTQ2h*_+!CDy&15!|LNOP+MoyU3eme}U!
z&wd1YQ(naSxg$WYeXi%lPHa;GH`H4LP{PM5gP$nEUr7KN1NP0=%i8B)P4PpRE<s)j
z$w2(`82v);E{&rt1M@LW-5BKT2P;hA&kX0q<N4u`X5ZmMdT%_!E?>^-oX8BjBAsTM
z1pKD+!e&pX)X(pDL)^RG<0vG0rV(~NMr=F^EEh|F=fJ0Gs;tq;pV?XumQ%R!X8?K5
zO;10hJW)0@q(>7n)kpU6+e#o|v$cnc!QW)iu<7+g6B5qngA>G{_UstACQeMF(O?M&
z&ivN!r{y2J`1R{~Qi0;vmQ3Pvp!yjte$%c3Da3)^QBaY%o)>njJaT7aq~5KjNfe?<
zI{?|dG?ssJS->e~Hdc-x<N|)U@CJ$Q=zOg3E)e|=|C*c}AFzNecIocOO@+;wLiKXi
z;IbJw3O00J;}|vdM9L_R(SIiLL*_v}xV%c-SPD8C{#+fV$L_Rp-FQo)XoxK*Vp0Un
z3I#f9Glqgk?3eR*61b2&61~R=8`%6Vl#G~==!%y<?(dbQCdBu=<4go`^Ahy0&K^(D
zCESuklsPGa)Oghp$*wf%l^EbII7kAG%M{?@&n1f-Uo-*s7)AmoeY&rzcP=7W+CzOw
z0)@p1GQvR>>3Nrd^zqS;-_SEbAx86In(K3U`4?Iqy{fVpWypLMLnbhU?!ubeMT30w
zyvyJEKeum0A0|-0m1L)c9pLy=v>Um1?_N15tsTGo5mQcE+q>Q0SDPQqYJ}Rv67XKy
z+4|5d$%H4-1GglQfQEi$8!*zz1WgZB#S;o@YRW*w#=wWQa1e#4{9dwx={PDbY-fw3
z?|F}VCr6GHGEF4WV=93*Iz$TTMxD(f>hi`tA{6_iSPsDfOqaAZXxk#MU~N6boPnCJ
zjjywNsFs0eR-MdMPUvQ4A<(Dx91CVb8Q_NQAH)i9Lq)8tAOPd~Vp{x#*A)u%O8}y6
zVeuf58(Nkk(%Fdg6S}mO%ZEvnlwf8FS5WhDm8O%b%X>9@1Sf^3-dBa#zNo=Od1Ou`
z%&UVyNdm4EfP(UGrGT0(_}oQxFVpzFG`b=QucmBu?ri3rl1Adi+~0fXXmdlhm=xAk
zGVukh=(a59R%?IfU)Wxv#lXFX;Dm0dyXsasm_~WxP4e&Q$`27OnM-T-T;LM3y}Nsd
z{wlzdFDk?ZGy4!s!G~K)8Is7QZNP;m?{D`}xO0IJ_Umq2?_<X&j6068Wzf?u6_}C0
zL*FxEAijd7OCsO&;Vk{Fz)SC>`4&!8&~g>iz@3uHN?{4)M(<o?Bo}HT4*i<g6`ii(
zVKbD)xzQ;3kZHgUyC_+MbrT@G(-F`Rbn#*;80CfL+4U`fJCW{52B$&-OFR#usa=|k
zuqFUopt0BzH+0?iY66%YgHN70^H72!nDvo2LSg>+4NpvY9D!2H{LE+$M=1sk8?VML
zxPx6`Tm;7GRUW8_7ov(#937?k=m#}U$s+d;%#Cfq&z?U|1)l*H$v_V2E@-;Fa=ioM
z*n8}NPQ&?&SGnltv{b-F5=Cpx<#+Jv_xMVW9aj?N&qbh_fE#}wa`;`m*gfFy*^i?`
za80HGcXxlk6}rC?OlxXJ9_^1Mk*)ws0+FlebnFBWaoOp3VH~{Lv8PrA2_XSiMtKYS
ziN^J>S7?1fyP+pfp45QAL9M5la_@I~x}0<?>wjtVDLACRw$H7~>_3k-49Poyw(&&Z
zI)<YP*3CB)ery2yL=dg(Tv}Q>4%eVnQ<f84GuKd83(DOtpfePJc^mq}{D`<$f8IZV
zu>~HO`I(M@8o<W<2v_h3@J4FnV{8Xy;nkliY9!P%Ib@WR_`k`(wipVDqAdr9Ov;;r
zpJ)Q_U3zK@(F`~+<(U}Uf?u*=O9EJeV_ul@Upi}Kq?H7|LEbW;1k-H~R^~_062{yF
z9J&Cp3G7{!M25(SG7<UAT2KKRGFjl>1F)R!-~afCT@=ER=*_QDvzT#H&Je_i5>9~c
z*xwI|IEIt{$oH;MeZWbPF(EK`oSd9+Xyz$!%L3QmaY4`004s3|gYKz(V<2}FQ%<#O
zz|(o9K|M*13$h4?hu=?(Ekb=pB>L9M$N`jzOhJek#RRB}laM346x(Ou(oE1&0vA1a
zkpgx}A+V_d#P;<F7>dS}tFB<Xy2y_3V{CygA!Qdd7&4|rYv6@L7*QJ*K%fA}NR-Xv
z+>Lmmv|JbbvVhI@G*KK`BQ&Nj!YBPsk|A!n%V@gBQ9EY?u&h)=eOy6+2>NWk6NYFc
zul3`ocs!Zu9=05HZJZ&7dJ9YJHUxUnXtmiidWRd##v1ZK&)&gwbK^oWmX17NWmTyH
zrirnb6#WHE!BHkx(sdBTN!gk`24huGw{+EL+yxPfIUb8Yzl8JS>M(T+Z*o>?GZ<Sm
zD$^4{-p#APxD`if!xcnu;OJkK#+?|oi+n#Dz<MH3u9Z@Qs1FNVS*d+{QEL}tksC||
zF626ij-JEO^}AnZrPD+B`t30VxB?4lFwGTs`4*P(wtxAF4ptf}I^+S}+_jFQ2E3v`
z!g>LovxI`X6&{fHXEDG^ndEj5f^`29@nkM;NO!viEw=cfeSy$l94CEHmq=+O(O(O&
zGMKJm0}W84NWdZYs1iurD;OKtJ&4s(LBg-uV-O}IbX8;U(aXPI)7JcOXu0v8H#N%8
z0%Q{vfN;I((f^FdUHgHI=qXo!z{09HBK^}E86<#yPCP}BAKl{M+le!h2n*^!q7t%y
z6hoH;xtK1pEjpRrKO3U($Vt8mGzJTDL7*Rnld_H?V0ur}zhd*GUooE?QuxONe8<rr
zbJCL)2?bJT2E@=zB89LesDP=0>uAY07>x;RwOc&z0GRdV;gbPpt}1{N=u~uui3-%s
z_C*Em?Li?#R6s09WLJ>s5rOy6N5i#{30;}F*fBFSPA&ftzUJPPavZfLf`qt0!de;z
zm=rQhhS>ar{=tTFJVq00*Bbp*PXyOX&s4qUqTd(z3i%DLHavh`8aBl_Da>-F$j=W1
zb8v7&&=N=iSl$|<Vi>%VNMEP~!mbQ-#N_Nr^!9AEULNP8Z!$aMz`SRn-(4J|qD@o=
z@}{6Jjr&LVb?gA!rC<#%Tz?-9O%KQt=;$2TD1hv~y)ckK%>Tim8&dRWILeD0P6k1K
z%zmd&bIT$}P+Ev3AySC-RnX%R$&_DaikV*>L;p@OV|h`5?zO||sp~N!iBe??wd?O)
z!4j_n3veaQAMUDPFQ`40|D@VE1^A4|{0q_2my_okXfNU3a!<*+<^HKvTAf}UOdkoE
zeAH(7A0SiBMU}E}1*XNoM<jIv{v`{)bpV=syOgR2-%t1&z=7pxmbWTo@<q@Gp#D7N
z&nb%tpq0>raDM2Sxg)&1e7U#eh#aD@`sX(e<SVt!)eg<h2lx=`_0L_DmbU-m<>sb?
zC+|X0Yn25~2bEw<ppaNRb^MMl5tsmxnR;~>5vTx^*8fR*HU;LrnlE~;jJZbf5z)Hk
zh6}{Nb)ZCg(h&NaM56yi178hSAcCQe!R7PmbBk-ey%l3*T4Q3qTz+THU(=`$--81=
z_smPq#*fT#d_XKj>sdfqRM_0H=5J+@@f?h#iCrD{d>S7GW4d-b05zY9dT{%8IeS5j
z2V2tCLhHZ7`o>Ikg<YZ99|=R%ELWIIYf|Co=A)Pi(a!1*Ut1zp>dt)EKI!%P_3J+s
z-LoO1lS}m+1<&vI{aiqS`Mp*d;5u^*L9U2MI}EGlJY}1?ajIu(=7ev4xVp7(lj-Pa
ztzw>{mEYQ~B!NzGv#^k`WwfsDxTSpT{Z-h7ty}P?8ChRf^XQ>_*e)3d@WuD%3&4<K
zlvAHRRceRLUbxJ|xP_s=8{sAQ?g^idAE~%&d?rK>k%%%8_wvbZ=;{z(O!?a?G;@YY
zO>h_a@^4;7X{qw^LxZ8$mu5F_ITs6FlR3BoejcyL>Qg0xyqN+~_~coVEYfn`5h(6e
zwNUvn8#c8vpY8NSZ+Co~iNUGQCYRm_JX|DTrkLkrEo&`)1j>yh*2hIkZ|W~QzM^ej
zY>m8DBDs?qE08v_5}q;4?D*mFRVVSUd$*oSN;v7pxyWBl?3!Atn8=TeI@|v&(Hyq#
z^KhH*Z}J&<|JdrSb<w=XUq-<UT41lXqZA&^2it_$b;p1~GR#IeD086uyncTCHNpK!
zO78Uu*MzlLr92ZK4YgSqUA{4tY&mqz^nL340E>K~=6p{Z?z%gd1%9fT@_(Lqzw%fA
zavxL{u6xVAr?;sXBc$hH*)9Hc(>5ejn$Pi;-OGL_{q*qzuQl>JI|T&=`}&^;l+O$_
zGFE)Etovmnq`&a1(=@p?N{#{-7II~2!d=jB3-X$Iku+ot*F@cRuNJz83~e?ybrHEL
z1>4uoZTD6jH-sfa_93!|wS!YJk7z2|)lQMa9vEtJmGyM+SCZK_SMHN|2Yl|MZ712;
z?F(zGWq0T2{w}{XTn_7V_6UDX=KFCX!tSEB+`T`4&O5o=HE|it^6|=JC7nRLsJf&q
zmL6<U%ETxmN6nUQ(TW2t;TQUxbS_@p>e__siy1CgPll3K)^G(od3p2n6{%u!qe{`s
z2Qq{2i>#v;s;jGC)=L4r^;?(a!`_U^-{aNHE6dA&Qr*fm3w{up;!j(Z7OuFH9u-`F
zTban2O|9U(u=PjWc$G&&nr5Jqgk#?!aZ<WF-r~h%O_}*0Uz{1~T%Mcr7A?!X5`8!8
zeCTGO7yqv=er6ZAhvdcdX2tbbc}zA@<`w4D!DES8lfn1rR<?*`(u#XW!?8AR*D4b2
z-YqPwH`l3Sd$tu)K)2l4W}jiq$;56#R=Jj3>zR`=QHX9FlB&VA&{^SisI)bGyy=PI
zZCS^4fsOVtE-T9RV3C7STu&jbjeG5SJuO6!+1TN}M5?f1?cNk;-1{<3?2pFKFd8`X
zqtKvjRJ4QeKA)uk7bOt=IYNbpaNqgo#;S(9PQ4NT_Cl=KO-}t=YiP%Rb^rYjTHFfA
zsd$^tQ&6!X-lc*ExZlTIKX^qZZ}n#Dsgx0O43QM~iQn>0g?-Ac8}9LTHoa!)n<Cr#
z5<tx(GqF>x7=v<`$aApzBa<_n{Obk@+2`ULqNQc`1WOJVwSB5W=X&J|ny7y-t2P~P
zZu2>jdp-giX&#pIVM-cm9nsPfq(9K7?Z2JIMbTX8xCgAiTQnhiPW%n9C6T4kHi&%c
zZmr7?-~@Lk5@=YzTQWDZq<W*XZBz9pQez32?s5}uu0t2EMds&RC~A&u9)H!K0X@3C
zRHPzv)FxZZX8Q3+*Vf+mYDSMAP-t9hI_o|XkG`rFIZV76j7%vGwR?5l;%C17u=Dv%
zVT(;1p3Gw(3aj2<GTX^)UM|`eG4d&}>iu;ky`kq`V{EQuqWiA@w6i8S>yjq=?L14Q
zxp^IW_BTSswWG}=mgq<HmH(%){U^pnV*}rMqKe#Gk<Hv(IZ(zASxcjWobvaPL;v$|
z)g@c>hd<c2w>ETI@l@7-55h+}-({uz{$(8MIR5+Ks=&@$3X{n<`l8~lC7C~;HbZ)x
zum9a;8v-W;)ts6hC_L1ipqF|qStM5S<w{<bJMD*o#4F6Z#cQ8pLW+AxTRCz1jfUP=
z8}zoN1ouhpr6-)O*;8xG_$B`4UKmLFyTErOa=Jj;io;MV<vaIvAd!1fu!S=rXijM+
z>1ADjJZaQ#iFg!0E|l?%b&8`&D82i5K*$l9C2T^Z$+%FVDQVWqI?n<K5|gZAb)%Rw
zl$)YcL%(+xPVAZ9=_G$7Fn32Muo=9;7EJoEO&ll`F#T3It7984-t?92JQQ1G+b_kj
zcE97h<gxRzyojAEzfEqpfUgUnt^KN4lQ_O&iPzEf(6?r;RWW>Y!S=*26=Ume&je0r
zX(c~=R5nOHmAP=7rO;Ho&uITPwFIp8x4<|VPDEGTld?a;Q?)>l&$i?*mOy>K&lASI
z6MEROl!1wBJF-XRwzhD|hpkotw$zo+x4UC#Zv<wXx3c$+6mzruV7f0j_=V_hS>*Au
zcqCcC_U2nr-95XHhsoiOhKjK-{%jSg5{`VrzP6Ekw8Y(JU01FzM&4OUCE~qt*PaaI
z=1EGeKlc0F<Rlvbs2~5<5H83{t)xI?dyV1Lqaug$I;Vab8y?S}*5okvIk=C#-rnf&
z<LeR`=b67gH1U-5AncLc_gaR{nxR>&$j%%c)4{MX)bwP&pX^f7y$cshplk4BiMdk;
zBr6&Gky-N#m}CL9xND+%w;dfF_tXvL5qS2tl1&BU2HUi?wOzu)^#&@&guZ?K`mxMd
zScc8C;1)vHjw%OKg-{aJ7S(CSsscw>j7L}I(^dU?Rn^0m{nWi$aoYmy4C1}PJ6)Vw
zrI~SA$4jcJ(!)0w+NQ6nG%y4*hWwcXT<)(!yaVqG<YNwl&nLAucNr9Gve&aTZ!^gz
z`z}s&`kF3FjJH(u8jJ7t;Tp9~1S)lh3^tO(=bPf|8{Ya?Eq;2~&65uE(_n_9?@=H=
z>=1vvJe2%bj8$uAp-rsKSXnV%+HC)6HbZYpq{asIOv*cNpSgw&<&Dj%&d@z{W>dT5
zqiY34UZsYQIJ>w`VY{3_I>#q>FnK<b_<n2F-G7kFMmH*c$Av9{<@(6@3QKcK43~+_
zyleQ|lYu4Xzb{YbIH=mco;vq4DWl~6{VO~?eW9-?WPYz`HURgEePt_t1lV~ML4N0l
zqk783PVW~X3tqU54Vj2j<TfB=@7`o~P4MI6-A~9?<%gewRP~UVwb1(>LIZ~zbN26_
z8Cx7Xp_sK8&{uio)#5jucCV^G>qr5u5doV+G0uR^D3XI?<;L3ZO7H5z*pESj%6Gkc
zk)Ne4>^U9m`XQ_e^2({ZJ^zYSX7gj_&k&nwD%^&_vx80g+dm|~^?hn;PiZm7Ey$eA
zd=md^HJ>k3A>&nXmPcK*D;$Dh2qnXmd1Uk$@-R0-P~qaOKN3;!_`1`RYf49HY(g47
zif@}##Dbcty@)Z~KkrI1aZC*i4D|JDc$`rB_>l}<2$8Q}A}DM+mAQY+!5t80e{?Yk
zlOlQ=?F;*l%gK8_%)7MP0RM?2LiNSTPka1EV=ddqmQL1MVxZIqS1!)ZQO`J)QI8EB
z`#y^7o32lN>bAl=;98xbb*IBn5s7)o%8Oh@mA`VaJ3;m}iP)xlAa0YuN8?Mv>A%D$
z5Mi@B121|isz=;~9L12Haa8<xJ$d>}c8j<xIHsH*KqM5@*Wbwv`t#22Y>CUp<x%{@
z^2y2D&}|G}B8<UA?d^Z&_48`U)2GskQPCv2p*Ei3odGs&m&>AJBS#lx7dNnSE3zih
z!JB7kk$M|{zuX8VfP1(CCl)A(FB;frt=%jK^~7zlpspsrrp?!bZ*FelJ!6Y}8vFY{
zPNN;v@gAw@vZ-NLbNDUuIc%Vn32@oY-y6!BqZ2@Cw2L8|L}z@u=yt{s1T5%4BxU5H
z6jG9s3}j-!cq+h&$oWCS`%LS>?%f5rz)CCNUN0?xDbF&HwjfG0X(KPS72%Q(yP%*#
zKtpp0(a?}UO=E}Y8^A_??WR8Lg7z*9@CY$k0tqg_QD-F)rDkl`VH~U}eI1M|6=(w^
z-S0R?Zgq(H^8^V*NeXFCR6q{P!Q}HX+Y*4bI|Y*>E(Ihq<^3S*+lrf>WMxE5Mg^Sc
zCP%;JJ~7X+ACH}XAOR{4F)jc7XOM{A34J64Z7AOmQTLjAx*E%CSag6)^tO2zlac9c
zGUVSe$5i~}nk1sZ(g<WGrI5pgn1X#w%9CH%5@da+zG+89D>@y}HaJ8SZtU!Qb6uoO
zCkOv{{cgfOCbJRTGbeLsmE{$%IcNiF+OLb~^mgQq#Lj(@NeH43KR}iBCK;PM+!<Ld
zu#4CbYxyN5JXt|X0a-hTL1KS=zf*jOEOGqig1mzq`hOuP1ymYW!WIsAeu3&6<h`=X
z=N3&ekTX4{Sg4!*JY=owA_m>L<eCf~*sGE664JnnRuWyv?}Lw?1R|O_;$aJ046;&)
zuIa@*h&jm7;P8ip<!nKXr}7c-5ItGbIDvRxIrz51L-!#fTo^irmF`#$yObxaGfBmA
z@zQkyOqXzItDBRFK>zT7Dow^CT~UG344sOP=<&CNf_fo)8#}LsqiZE#0~v-!@yr)$
zy`ei1+IZwGo|BbvO+yOOGz8WK;HVtfVery_?}4+dVRDd>61XTr7rH`5@MuIQt62aO
z|E_$Xzp;72X}1gTCsF{0j@|^itGC6<P$N?0@np$S0wXy~8+jxJjQF}gA`j%CdUpV4
zsalFbo4?HWFvXykhQd=Y<@d{gyE#OYaR>gH3Pb>vqc{~a#Un`|HbQDQTyF!vWzS{>
zVOV>PA#39A=tTYvtnJ}0n7=F?bm*#Sp`x+Ox6l2}uD5ftQ>7^0U>SDMFS_%!o9#rC
z?FhS}7k0k?%sQ^1S``!MGtw3{hW2dyU%zk>e#LW$+pvh>?l#tT!&l9xJt+z1)FYsS
z%ThsQ6CJkLR3*l3FD-@j&JNWzzj{tI(Wc%j6VSeSO-M)i!GUrkUixZcGuHOVk-mrQ
z)c4$vF;aiUC!MH=b)lPoLYpyw865e3BMo#<krS*FXV}@qp&!YB_b`Tnla)X&UXex4
zMPnIG7~)~Pg()ynS-%GKw{B`(BvMk)+RlrN22=w4pd70@ONoM2=RZZ+0pGk(-v4|>
zU^p(zv(n{V!K+g0zu`t?=$ANB)p1X`Dd7&;E|Xe@*26Hrf(ua2yo#ph%Bl`+o%M4J
z`EDi6yBwc$k&EHCA&>ASo?{q>ye?!*Lb`6ucTuIl*#udn>NrL<8$<aO>k7vCA==(w
zSk+6>`mp9k8#hGMGK?hAW%Fqg?m(2A5~xZjV8u{OfrQ3?D-e^FM{FO5nGl(X7Y<5u
z(-p8}WDgoMZSPnq+xnLXX2k619ydQD8!5y&h!a6OP>>Ghl%F3Jy<O6+LQW<1O1n5Z
z?ibQJ?_eEImI8O-VjCBXi}1q(s)T|1P{Kgvnwn443MN(AK9kB)nXPub4wH_ZU(T`9
zfO+D;n`Ax}WOA}510nD!+Yq6BMrfm00!T=%Uj?VnRF_v9g7F$S@cjs%6exQLF!N&#
z9}&VMcBCuI<RW-}Q4X~Wc7CA^?G9PG0>UF6gh;vL1Vo|ML7W2-=6{+FBJPv`oY8R!
zQ>1}JZ_~!nopJE0r7)yOhKSm91?Wr#XW%ghX~yknBK_C7bsR(10KFNfWoQJI94Wj3
zXv0QC`XSW78EAkjTbLsKny|~k|JZ!~OTNs|KL$uE=AnK(y@dtujyoMbd>4mE03#Mo
zN0>Jjuy<L42?Qtxro=d~P<~n8(?-5l0%0_eGO@rih7bCOLh&m~2-BNMN#sID6cY!G
zOGA<N+XLiewTQcbh<pWNf&<K(42schGu>xLFa;z$mUtM0Zs2lCF{iBxv`T9z_Msap
zAo@?i)ssO~BVA9Zen|#TA?)Qr{v1QOx_&s&{vQaXQS?ufaG1bZt%+qNSaH$~L!S%L
z71dA0Bv{j91D?BP5Bc9nLtD<DOcBQ?&c6?{kR3qb8=RORo6ZT%mBGc;1jP{B4KAQu
zb#_2KYjQO#+JdkC#hYY-5A1q>%k}l(*F5yy+;nqo2Y8)80TW9+^n02ah>wd;ogz>}
z(SU%XZiOcx%ovXGG|P(axFZdDUn#;8%W(7`5=c+W2$#uA%J2LmO6N()Yi?+g0;Wby
zKn~h3<T?Z<ax;&TC|lvtZ*RtCAgijj!jPW?<Za^tb)#KsK@m+fYZ@Jx*DiVb<S?EN
z%4CT2NHo=$O_Gtx8aT@eB}YR}%GqR~3cI|++TM!+M$H)2^Up#che8l>D~N=UpA`j=
zQ1zD;)sVDtWNyJ$xHwS-F%42sz035TPM*5yL#eT;2xk1>g}b2FAyC!h2YV7|ehMnV
zHmVq~|4W&P=%M+c3@2q7byKaiF4{ybuOwnrjbx$CWOO|492S%*IH68QY@uXL3d*w6
z6X@?`E#wfMBp^)FLXROBR!7h+hNh7OFf0X~Y(n7qXu#g&i$+ash@umbeoM(u1Wz%l
zbrxhd;qbRjd$K$FonUaxC@X{S+&`2X>5`yUUdY|X6&$fvTW1BqMRgCa&M8WDsU=On
zF5_5@`5dFo(G=u=uakw7-hJvz?<i_=;;13i?LXW;Ok4c84@>mYD;15H@e%)s3V8G1
z3rAUjho^DF$ke4*w|-pCLoz*N`uh^lb`^4Zc`-j<Od2iQtUVXUKT1NxW<$vD>C@w=
zw4`qaR4Q)hud6<CLPVW4=Dei{r`~Wha`A%tj?@1B+$vx&dvtVk%+2j~k5p~mL&neO
z8X@jOpfLdl_6T14ZoUU^v@b+tclIF{pb`W0H&q|SN7;f^TQ}a%)-FI(HQ}RA_H*A(
z<pmhgjCFK$x?^wW-T-@3=O#jFt5$CZK7Cr+=eOE9=8uNV<|rSZ37$NBp&uj8T3^45
zxp32+la5LN90r@@M{Ou`yC--*dAwWgpqd=epv}g<8w=7N=j9tPhzgB+`SK+=5M6`~
z>@s8-c=__OQxiwH`STN~u+34Plq5cpk&*E<T1@4)@BXaQVRd!KKEP3oz6Fk1`oC^~
z_%Ud;zQM0ZfSaOHWXvLETGnD0bZ^Li<7kJlPW9P=ae=^%^uBkN=`sSIxnD~~R|rkE
zC*4Cn*n%N@67_9L<yET#xn(WPJiE%(M5_lbXiT^NPGpxuVa4~ElXAlW^VaA#{w++2
z3K3s1_;UJrck>8;-oBP+J0DaUr!_b&tN@pcwOm}LoqzR8XZfGPW;YoE2<E-?V{d$+
zw^F-Mi0|cB!Ew=d4|9s3?S@npZwaKb^0W09>zg1c$#23{@xjv+#e?&~lGbNEBDbDb
zkIaajWNEuDa#dX*IzUf!=lp7g)_0{CkLKK_+$(?D9ACdSol5H!klS7j*u`utE3IAd
zzI$M5TqOEVq&~XngWOR4-!us%YK|%J-ACkzg&MS4Dgp98`qXy$sr$!xC;q<7Vf|4j
zc(&ad6q?_7Gr4S)#r}5<=4gKJ8&_>jLM3!7Vd-FchaVF90=o2OVuhtFI#)~P6LgJ-
zj^#sB@}P+l!l7?*5J<l^4d%||_D%D#1-+Z`q?eti_aF1xC)n7!rW(HM@R!nKb?avp
z#B712`E?Vho4!wA`M0~p;+GaT89s>3Oj1Ef=rbX4ANgyF;OgW1vB?JnTjna3pY_aC
zhF%W)xNus3gOw_WW1wYUYI>0*Xy3=A`z2_ZH}fW@Xo;G%=Z}WjZ;m$;{26wYgX(1u
z58XC|LVn_!efJ8K#TBjc)CV^`<9YB6y;s^k3D8pZx}+al%<nGSx2xtfNBx%Epp}<d
zEl1w?sk^Nra)~2v-K>)B5^vvFV`2HPlrw2ae+*Q=wBqPa4y{v!@@7#t?p=1jW6QE-
zBYuC)lKW_a2fTHV{+m0EJP$si$$N&$e}_UquW}Utv*vwYPVO6F_Q-xbEWjmYEo^*H
zi~m#N2>k->M8hXJQ&2kVpNF>9&}Uo+s$cuATK$+)=&9f1KbrYD&Co_I979A^LOFn2
zib>HocER*QU&bFikXb<n47y+x4RXjHRT0m<0}&kG-+3?foHbpZXJ_;$KgI~xNxtt0
z3ck1?7;!ue*33s~QSQ4F;*ACAAN}KlsA-%!?o-zI4awI(dabKizE}t3?_+{-Mi}~Z
z@(35BQD}RZZO$NmE+F94DFM|cHaR3IiM4&WttIGLpWiEXb)U5L3+Xh2pl;TT#$Bn<
zONqr@?Q@HN>R86MLQ25t)3(3?Z}CG0JpsMuOD|=j>tixnJA3YKs!VKu|IyM*ImIjq
z#Ol4)2BucR?k0#DL4N23f-@GUH&|Q?N=n$A^`Qr*PEWR~sik;3LTtC>L+Qw_^$lw!
z<gRgi#Z~3?{Z%f807B!zjh}q)d6v@j6+U;WkcK~sLfVfeZmxsT`~LBt`sG)%EZ?_e
zvebhvUAiRud^n0XP&=33omv{1JmgM$^y#E%o4w7SM>EBHLv>$~3&f{;kKY)(b!FbH
zYD7BWFWo)rpkGVeO7HT_zyc(u?`-?*Jr<mLJ-!&~zH(Vlfw2{)y7L8<`in#}L~KF1
zF?y?VMa<*qbj@487s=oL7z#fJ^ZxR`DW78uOiCrCrSBUZy$Mv$V&EqB%qJUV^ASSr
zZe!<bFFknib&FcnXA8biwcmZ0+rZv@ZH}f}3EpEE<Pa<K&}?3hxa%<6sd34y>NjHx
zLI1`ByeJkqyW^`VeBVGr@Y+|`xeN(V@0KLGA^it`KcCgEM=8O_IXHMiDCKndOeEHN
z&hSlk&><}*R=}yN&SVp1y*fS0*%n$JBl&Dt{=Q!K90!W&dZTh+r0m@3n%_B)@G)Y3
z#ejnIcu*PboyXjIVqPDqqE1{_l0T>H9TJvrCigsdHL3bQTr`?pBUQ5xZaSWUEKI%U
zhV$}fug&`stjn5Xhpx^XI;Cf+9Di1*ttm*C8~>nh#`N&_C#IGW8m~pt)vuzVDJg*g
zmQp`BFt-Q&dwlQO2FkX(a(r>kDxWd9FJ|KeYJ`W`>%jwK@;UYspFgr-3=>##cFJ=b
zMP-tK{_)RSJMwO__w}Ldo4=k=A5-ncem;uGCnvNw$!^Xk8nA7-sU5L<iRT{^{x}KY
yqJQzV|7KDo%#7Vc`%wSiTN?lS>m1`dOj;+1pLUlErK7K(083LFlTssU^#1{XEM#B+

literal 0
HcmV?d00001

diff --git a/UiEditor.bas b/UiEditor.bas
index 79afb3a..794df46 100644
--- a/UiEditor.bas
+++ b/UiEditor.bas
@@ -5,9 +5,10 @@ _ICON
 
 DIM SHARED RedTrackID AS LONG, GreenTrackID AS LONG, BlueTrackID AS LONG
 DIM SHARED RedTextBoxID AS LONG, GreenTextBoxID AS LONG, BlueTextBoxID AS LONG
-DIM SHARED ColorPropertiesListID AS LONG
+DIM SHARED ColorPropertiesListID AS LONG, PropertyValueID AS LONG
 DIM SHARED UiPreviewPID AS LONG, TotalSelected AS LONG, FirstSelected AS LONG
 DIM SHARED PreviewFormID AS LONG, ColorPreviewID AS LONG
+DIM SHARED BackStyleListID AS LONG
 DIM SHARED CheckPreviewTimer AS INTEGER, PreviewAttached AS _BYTE
 
 CONST OffsetEditorPID = 1
@@ -28,6 +29,7 @@ REDIM SHARED PreviewTexts(0) AS STRING
 REDIM SHARED PreviewTips(0) AS STRING
 REDIM SHARED PreviewFonts(0) AS STRING
 REDIM SHARED PreviewControls(0) AS __UI_ControlTYPE
+REDIM SHARED PreviewParentIDS(0) AS STRING
 
 CheckPreviewTimer = _FREETIMER
 ON TIMER(CheckPreviewTimer, .003) CheckPreview
@@ -67,8 +69,8 @@ SUB __UI_Click (id AS LONG)
         CASE "ADDPICTUREBOX": Dummy = __UI_Type_PictureBox
         CASE "ADDFRAME": Dummy = __UI_Type_Frame
         CASE "ADDBUTTON", "ADDLABEL", "ADDTEXTBOX", "ADDCHECKBOX", _
-             "ADDRADIOBUTTON", "ADDLISTBOX", "ADDDROPDOWNLIST", _
-             "ADDTRACKBAR", "ADDPROGRESSBAR", "ADDPICTUREBOX", "ADDFRAME"
+        "ADDRADIOBUTTON", "ADDLISTBOX", "ADDDROPDOWNLIST", _
+        "ADDTRACKBAR", "ADDPROGRESSBAR", "ADDPICTUREBOX", "ADDFRAME"
             UiEditorFile = FREEFILE
             OPEN "UiEditor.dat" FOR BINARY AS #UiEditorFile
             b$ = MKI$(Dummy)
@@ -98,18 +100,21 @@ SUB __UI_Click (id AS LONG)
         CASE "CENTEREDWINDOW"
             b$ = MKI$(__UI_Controls(__UI_GetID("CenteredWindow")).Value)
             SendData b$, 21
+        CASE "RESIZABLE"
+            b$ = MKI$(__UI_Controls(__UI_GetID("Resizable")).Value)
+            SendData b$, 29
         CASE "VIEWMENUPREVIEW"
             $IF WIN THEN
                 SHELL _DONTWAIT "UiEditorPreview.exe"
             $ELSE
                 SHELL _DONTWAIT "./UiEditorPreview"
             $END IF
-        CASE "LOADEDFONTS"
+        CASE "VIEWMENULOADEDFONTS"
             DIM Temp$
-            FOR Dummy = 1 TO UBOUND(__UI_Controls)
-                IF __UI_Controls(Dummy).Type = __UI_Type_Font THEN
+            FOR Dummy = 1 TO UBOUND(PreviewFonts)
+                IF LEN(PreviewFonts(Dummy)) THEN
                     IF LEN(Temp$) THEN Temp$ = Temp$ + CHR$(10)
-                    Temp$ = Temp$ + RTRIM$(__UI_Controls(Dummy).Name) + " (" + __UI_Texts(Dummy) + ")" + STR$(__UI_Controls(Dummy).Max) + "pt, " + __UI_Captions(Dummy)
+                    Temp$ = Temp$ + PreviewFonts(Dummy)
                 END IF
             NEXT
             IF LEN(Temp$) THEN
@@ -212,24 +217,21 @@ SUB __UI_Click (id AS LONG)
                             CASE -5 'Font
                                 IF LogFileLoad THEN PRINT #2, "FONT:";
                                 DIM FontSetup$, FindSep AS INTEGER
-                                DIM NewFontName AS STRING, NewFontFile AS STRING
+                                DIM NewFontFile AS STRING
                                 DIM NewFontSize AS INTEGER, NewFontAttributes AS STRING
                                 b$ = SPACE$(2): GET #1, , b$
                                 FontSetup$ = SPACE$(CVI(b$)): GET #1, , FontSetup$
                                 IF LogFileLoad THEN PRINT #2, FontSetup$
 
-                                FindSep = INSTR(FontSetup$, "\")
-                                NewFontName = LEFT$(FontSetup$, FindSep - 1): FontSetup$ = MID$(FontSetup$, FindSep + 1)
-
-                                FindSep = INSTR(FontSetup$, "\")
+                                FindSep = INSTR(FontSetup$, "*")
                                 NewFontFile = LEFT$(FontSetup$, FindSep - 1): FontSetup$ = MID$(FontSetup$, FindSep + 1)
 
-                                FindSep = INSTR(FontSetup$, "\")
+                                FindSep = INSTR(FontSetup$, "*")
                                 NewFontSize = VAL(LEFT$(FontSetup$, FindSep - 1)): FontSetup$ = MID$(FontSetup$, FindSep + 1)
 
                                 NewFontAttributes = FontSetup$
 
-                                __UI_Controls(Dummy).Font = __UI_Font(NewFontName, NewFontFile, NewFontSize, NewFontAttributes)
+                                __UI_Controls(Dummy).Font = __UI_Font(NewFontFile, NewFontSize, NewFontAttributes)
                             CASE -6 'ForeColor
                                 b$ = SPACE$(4): GET #1, , b$
                                 __UI_Controls(Dummy).ForeColor = _CV(_UNSIGNED LONG, b$)
@@ -346,316 +348,11 @@ SUB __UI_Click (id AS LONG)
                 CLOSE #1
             END IF
         CASE "FILEMENUSAVE"
-            OPEN "form.frm" FOR OUTPUT AS #1
-            IF _FILEEXISTS("form.frmbin") THEN KILL "form.frmbin"
-            OPEN "form.frmbin" FOR BINARY AS #2
-            PRINT #1, "'InForm - GUI system for QB64"
-            PRINT #1, "'Fellippe Heitor, 2016 - fellippe@qb64.org - @fellippeheitor"
-            PRINT #1, "'Beta version 1"
-            PRINT #1, "SUB __UI_LoadForm"
-            PRINT #1, "    DIM __UI_NewID AS LONG"
-            PRINT #1,
-            b$ = "InForm" + CHR$(1)
-            PUT #2, 1, b$
-            b$ = MKL$(UBOUND(__UI_Controls))
-            PUT #2, , b$
-            FOR i = 1 TO UBOUND(__UI_Controls)
-                IF __UI_Controls(i).ID > 0 AND __UI_Controls(i).Type <> __UI_Type_MenuPanel AND __UI_Controls(i).Type <> __UI_Type_Font AND LEN(RTRIM$(__UI_Controls(i).Name)) > 0 THEN
-                    a$ = "    __UI_NewID = __UI_NewControl("
-                    SELECT CASE __UI_Controls(i).Type
-                        CASE __UI_Type_Form: a$ = a$ + "__UI_Type_Form, "
-                        CASE __UI_Type_Frame: a$ = a$ + "__UI_Type_Frame, "
-                        CASE __UI_Type_Button: a$ = a$ + "__UI_Type_Button, "
-                        CASE __UI_Type_Label: a$ = a$ + "__UI_Type_Label, "
-                        CASE __UI_Type_CheckBox: a$ = a$ + "__UI_Type_CheckBox, "
-                        CASE __UI_Type_RadioButton: a$ = a$ + "__UI_Type_RadioButton, "
-                        CASE __UI_Type_TextBox: a$ = a$ + "__UI_Type_TextBox, "
-                        CASE __UI_Type_ProgressBar: a$ = a$ + "__UI_Type_ProgressBar, "
-                        CASE __UI_Type_ListBox: a$ = a$ + "__UI_Type_ListBox, "
-                        CASE __UI_Type_DropdownList: a$ = a$ + "__UI_Type_DropdownList, "
-                        CASE __UI_Type_MenuBar: a$ = a$ + "__UI_Type_MenuBar, "
-                        CASE __UI_Type_MenuItem: a$ = a$ + "__UI_Type_MenuItem, "
-                        CASE __UI_Type_PictureBox: a$ = a$ + "__UI_Type_PictureBox, "
-                        CASE __UI_Type_TrackBar: a$ = a$ + "__UI_Type_TrackBar, "
-                        CASE __UI_Type_ContextMenu: a$ = a$ + "__UI_Type_ContextMenu, "
-                    END SELECT
-                    a$ = a$ + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ","
-                    a$ = a$ + STR$(__UI_Controls(i).Width) + ","
-                    a$ = a$ + STR$(__UI_Controls(i).Height) + ","
-                    a$ = a$ + STR$(__UI_Controls(i).Left) + ","
-                    a$ = a$ + STR$(__UI_Controls(i).Top) + ","
-                    IF __UI_Controls(i).ParentID > 0 THEN
-                        a$ = a$ + " __UI_GetID(" + CHR$(34) + RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name) + CHR$(34) + "))"
-                    ELSE
-                        a$ = a$ + " 0)"
-                    END IF
-                    PRINT #1, a$
-                    b$ = MKI$(-1) + MKI$(__UI_Controls(i).Type) '-1 indicates a new control
-                    b$ = b$ + MKI$(LEN(RTRIM$(__UI_Controls(i).Name)))
-                    b$ = b$ + RTRIM$(__UI_Controls(i).Name)
-                    b$ = b$ + MKI$(__UI_Controls(i).Width) + MKI$(__UI_Controls(i).Height) + MKI$(__UI_Controls(i).Left) + MKI$(__UI_Controls(i).Top) + MKI$(LEN(RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name))) + RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name)
-                    PUT #2, , b$
-
-                    IF LEN(__UI_Captions(i)) > 0 THEN
-                        a$ = "    __UI_SetCaption " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(__UI_Captions(i))
-                        b$ = MKI$(-2) + MKL$(LEN(__UI_Captions(i))) '-2 indicates a caption
-                        PUT #2, , b$
-                        PUT #2, , __UI_Captions(i)
-                        PRINT #1, a$
-                    END IF
-
-                    IF LEN(__UI_Tips(i)) > 0 THEN
-                        a$ = "    __UI_SetTip " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(__UI_Tips(i))
-                        b$ = MKI$(-24) + MKL$(LEN(__UI_Tips(i))) '-24 indicates a tip
-                        PUT #2, , b$
-                        PUT #2, , __UI_Tips(i)
-                        PRINT #1, a$
-                    END IF
-
-                    IF LEN(__UI_Texts(i)) > 0 THEN
-                        SELECT CASE __UI_Controls(i).Type
-                            CASE __UI_Type_ListBox, __UI_Type_DropdownList
-                                DIM TempCaption$, TempText$, FindLF&, ThisItem%, ThisItemTop%
-                                DIM LastVisibleItem AS INTEGER
-
-                                TempText$ = __UI_Texts(i)
-                                ThisItem% = 0
-                                DO WHILE LEN(TempText$)
-                                    ThisItem% = ThisItem% + 1
-                                    FindLF& = INSTR(TempText$, CHR$(13))
-                                    IF FindLF& THEN
-                                        TempCaption$ = LEFT$(TempText$, FindLF& - 1)
-                                        TempText$ = MID$(TempText$, FindLF& + 1)
-                                    ELSE
-                                        TempCaption$ = TempText$
-                                        TempText$ = ""
-                                    END IF
-                                    a$ = "    __UI_AddListBoxItem " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + CHR$(34) + TempCaption$ + CHR$(34)
-                                    PRINT #1, a$
-                                LOOP
-                            CASE __UI_Type_PictureBox, __UI_Type_Button
-                                a$ = "    __UI_LoadImage __UI_Controls(__UI_NewID), " + CHR$(34) + __UI_Texts(i) + CHR$(34)
-                                PRINT #1, a$
-                            CASE ELSE
-                                a$ = "    __UI_SetText " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(__UI_Captions(i))
-                                PRINT #1, a$
-                        END SELECT
-                        b$ = MKI$(-3) + MKL$(LEN(__UI_Texts(i))) '-3 indicates a text
-                        PUT #2, , b$
-                        PUT #2, , __UI_Texts(i)
-                    END IF
-                    IF __UI_Controls(i).TransparentColor > 0 THEN
-                        PRINT #1, "    __UI_ClearColor __UI_Controls(__UI_NewID).HelperCanvas, " + LTRIM$(STR$(__UI_Controls(i).TransparentColor)) + ", -1"
-                        b$ = MKI$(-28) + _MK$(_UNSIGNED LONG, __UI_Controls(i).TransparentColor)
-                        PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Stretch THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Stretch = __UI_True"
-                        b$ = MKI$(-4)
-                        PUT #2, , b$
-                    END IF
-                    'Inheritable properties won't be saved if they are the same as the parent's
-                    IF __UI_Controls(i).Type = __UI_Type_Form THEN
-                        IF __UI_Controls(i).Font = 8 OR __UI_Controls(i).Font = 16 THEN
-                            'Internal fonts
-                            SaveInternalFont:
-                            FontSetup$ = "__UI_Font(" + CHR$(34) + "VGA Emulated" + CHR$(34) + ", " + CHR$(34) + CHR$(34) + "," + STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max) + ", " + CHR$(34) + CHR$(34) + ")"
-                            PRINT #1, "    __UI_Controls(__UI_NewID).Font = " + FontSetup$
-                            FontSetup$ = "VGA Emulated\\" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max)) + "\"
-                            b$ = MKI$(-5) + MKI$(LEN(FontSetup$)) + FontSetup$
-                            PUT #2, , b$
-                        ELSE
-                            SaveExternalFont:
-                            FontSetup$ = "__UI_Font(" + CHR$(34) + RTRIM$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Name) + CHR$(34) + ", " + CHR$(34) + __UI_Texts(__UI_GetFontID(__UI_Controls(i).Font)) + CHR$(34) + "," + STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max) + ", " + CHR$(34) + __UI_Captions(__UI_GetFontID(__UI_Controls(i).Font)) + CHR$(34) + ")"
-                            PRINT #1, "    __UI_Controls(__UI_NewID).Font = " + FontSetup$
-                            FontSetup$ = RTRIM$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Name) + "\" + __UI_Texts(__UI_GetFontID(__UI_Controls(i).Font)) + "\" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max)) + "\" + __UI_Captions(__UI_GetFontID(__UI_Controls(i).Font))
-                            b$ = MKI$(-5) + MKI$(LEN(FontSetup$)) + FontSetup$
-                            PUT #2, , b$
-                        END IF
-                    ELSE
-                        IF __UI_Controls(i).ParentID > 0 THEN
-                            IF __UI_Controls(i).Font > 0 AND __UI_Controls(i).Font <> __UI_Controls(__UI_Controls(i).ParentID).Font THEN
-                                IF __UI_Controls(i).Font = 8 OR __UI_Controls(i).Font = 167 THEN
-                                    GOTO SaveInternalFont
-                                ELSE
-                                    GOTO SaveExternalFont
-                                END IF
-                            END IF
-                        ELSE
-                            IF __UI_Controls(i).Font > 0 AND __UI_Controls(i).Font <> __UI_Controls(__UI_FormID).Font THEN
-                                IF __UI_Controls(i).Font = 8 OR __UI_Controls(i).Font = 167 THEN
-                                    GOTO SaveInternalFont
-                                ELSE
-                                    GOTO SaveExternalFont
-                                END IF
-                            END IF
-                        END IF
-                    END IF
-                    'Colors are saved only if they differ from the theme's defaults
-                    IF __UI_Controls(i).ForeColor <> __UI_DefaultColor(__UI_Controls(i).Type, 1) THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).ForeColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).ForeColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).ForeColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).ForeColor))) + ")"
-                        b$ = MKI$(-6) + _MK$(_UNSIGNED LONG, __UI_Controls(i).ForeColor)
-                        PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).BackColor <> __UI_DefaultColor(__UI_Controls(i).Type, 2) THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).BackColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).BackColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).BackColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).BackColor))) + ")"
-                        b$ = MKI$(-7) + _MK$(_UNSIGNED LONG, __UI_Controls(i).BackColor)
-                        PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).SelectedForeColor <> __UI_DefaultColor(__UI_Controls(i).Type, 3) THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).SelectedForeColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).SelectedForeColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).SelectedForeColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).SelectedForeColor))) + ")"
-                        b$ = MKI$(-8) + _MK$(_UNSIGNED LONG, __UI_Controls(i).SelectedForeColor)
-                        PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).SelectedBackColor <> __UI_DefaultColor(__UI_Controls(i).Type, 4) THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).SelectedBackColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).SelectedBackColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).SelectedBackColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).SelectedBackColor))) + ")"
-                        b$ = MKI$(-9) + _MK$(_UNSIGNED LONG, __UI_Controls(i).SelectedBackColor)
-                        PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).BorderColor <> __UI_DefaultColor(__UI_Controls(i).Type, 5) THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).BorderColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).BorderColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).BorderColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).BorderColor))) + ")"
-                        b$ = MKI$(-10) + _MK$(_UNSIGNED LONG, __UI_Controls(i).BorderColor)
-                        PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).BackStyle = __UI_Transparent THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).BackStyle = __UI_Transparent"
-                        b$ = MKI$(-11): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).HasBorder THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).HasBorder = __UI_True"
-                        b$ = MKI$(-12): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Align = __UI_Center THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Align = __UI_Center"
-                        b$ = MKI$(-13) + _MK$(_BYTE, __UI_Controls(i).Align): PUT #2, , b$
-                    ELSEIF __UI_Controls(i).Align = __UI_Right THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Align = __UI_Right"
-                        b$ = MKI$(-13) + _MK$(_BYTE, __UI_Controls(i).Align): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Value <> 0 THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Value = " + LTRIM$(STR$(__UI_Controls(i).Value))
-                        b$ = MKI$(-14) + _MK$(_FLOAT, __UI_Controls(i).Value): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Min <> 0 THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Min = " + LTRIM$(STR$(__UI_Controls(i).Min))
-                        b$ = MKI$(-15) + _MK$(_FLOAT, __UI_Controls(i).Min): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Max <> 0 THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Max = " + LTRIM$(STR$(__UI_Controls(i).Max))
-                        b$ = MKI$(-16) + _MK$(_FLOAT, __UI_Controls(i).Max): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).HotKey <> 0 THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).HotKey = " + LTRIM$(STR$(__UI_Controls(i).HotKey))
-                        b$ = MKI$(-17) + MKI$(__UI_Controls(i).HotKey): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).HotKeyOffset <> 0 THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).HotKeyOffset = " + LTRIM$(STR$(__UI_Controls(i).HotKeyOffset))
-                        b$ = MKI$(-18) + MKI$(__UI_Controls(i).HotKeyOffset): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).ShowPercentage THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).ShowPercentage = __UI_True"
-                        b$ = MKI$(-19): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).CanHaveFocus THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True"
-                        b$ = MKI$(-20): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Disabled THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Disabled = __UI_True"
-                        b$ = MKI$(-21): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Hidden THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Hidden = __UI_True"
-                        b$ = MKI$(-22): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).CenteredWindow THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).CenteredWindow = __UI_True"
-                        b$ = MKI$(-23): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).ContextMenuID THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).ContextMenuID = __UI_GetID(" + CHR$(34) + RTRIM$(__UI_Controls(__UI_Controls(i).ContextMenuID).Name) + CHR$(34) + ")"
-                        b$ = MKI$(-25) + MKI$(LEN(RTRIM$(__UI_Controls(__UI_Controls(i).ContextMenuID).Name))) + RTRIM$(__UI_Controls(__UI_Controls(i).ContextMenuID).Name): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).Interval THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).Interval = " + LTRIM$(STR$(__UI_Controls(i).Interval))
-                        b$ = MKI$(-26) + _MK$(_FLOAT, __UI_Controls(i).Interval): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).WordWrap THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).WordWrap = __UI_True"
-                        b$ = MKI$(-27): PUT #2, , b$
-                    END IF
-                    IF __UI_Controls(i).CanResize AND __UI_Controls(i).Type = __UI_Type_Form THEN
-                        PRINT #1, "    __UI_Controls(__UI_NewID).CanResize = __UI_True"
-                        b$ = MKI$(-29): PUT #2, , b$
-                    END IF
-                    PRINT #1,
-                END IF
-            NEXT
-            b$ = MKI$(-1024): PUT #2, , b$ 'end of file
-            PRINT #1, "END SUB"
-            CLOSE #1, #2
-            OPEN "program.bas" FOR OUTPUT AS #1
-            PRINT #1, "'$INCLUDE:'InForm.ui'"
-            PRINT #1, "'$INCLUDE:'form.frm'"
-            PRINT #1, "'$INCLUDE:'xp.uitheme'"
-            PRINT #1,
-            PRINT #1, "'Event procedures: ---------------------------------------------------------------"
-            FOR i = 1 TO 12
-                SELECT EVERYCASE i
-                    CASE 1: PRINT #1, "SUB __UI_OnLoad"
-                    CASE 2: PRINT #1, "SUB __UI_BeforeUpdateDisplay"
-                    CASE 3: PRINT #1, "SUB __UI_BeforeUnload"
-                    CASE 4: PRINT #1, "SUB __UI_Click (id AS LONG)"
-                    CASE 5: PRINT #1, "SUB __UI_MouseEnter (id AS LONG)"
-                    CASE 6: PRINT #1, "SUB __UI_MouseLeave (id AS LONG)"
-                    CASE 7: PRINT #1, "SUB __UI_FocusIn (id AS LONG)"
-                    CASE 8: PRINT #1, "SUB __UI_FocusOut (id AS LONG)"
-                    CASE 9: PRINT #1, "SUB __UI_MouseDown (id AS LONG)"
-                    CASE 10: PRINT #1, "SUB __UI_MouseUp (id AS LONG)"
-                    CASE 11: PRINT #1, "SUB __UI_KeyPress (id AS LONG)"
-                    CASE 12: PRINT #1, "SUB __UI_ValueChanged (id AS LONG)"
-
-                    CASE 1 TO 3
-                        PRINT #1,
-
-                    CASE 4 TO 6, 9, 10 'All controls except for Menu panels, and internal context menus
-                        PRINT #1, "    SELECT CASE UCASE$(RTRIM$(__UI_Controls(id).Name))"
-                        FOR Dummy = 1 TO UBOUND(__UI_Controls)
-                            IF __UI_Controls(Dummy).ID AND __UI_Controls(Dummy).Type <> __UI_Type_Font AND __UI_Controls(Dummy).Type <> __UI_Type_ContextMenu AND RTRIM$(__UI_Controls(Dummy).Name) <> "__UI_TextFieldMenu" AND __UI_Controls(Dummy).ParentID <> __UI_GetID("__UI_TextFieldMenu") THEN
-                                PRINT #1, "        CASE " + CHR$(34) + UCASE$(RTRIM$(__UI_Controls(Dummy).Name)) + CHR$(34)
-                                PRINT #1,
-                            END IF
-                        NEXT
-                        PRINT #1, "    END SELECT"
-
-                    CASE 7, 8, 11 'Controls that can have focus only
-                        PRINT #1, "    SELECT CASE UCASE$(RTRIM$(__UI_Controls(id).Name))"
-                        FOR Dummy = 1 TO UBOUND(__UI_Controls)
-                            IF __UI_Controls(Dummy).ID AND __UI_Controls(Dummy).CanHaveFocus THEN
-                                PRINT #1, "        CASE " + CHR$(34) + UCASE$(RTRIM$(__UI_Controls(Dummy).Name)) + CHR$(34)
-                                PRINT #1,
-                            END IF
-                        NEXT
-                        PRINT #1, "    END SELECT"
-
-                    CASE 12 'Dropdown list, List box and Track bar
-                        PRINT #1, "    SELECT CASE UCASE$(RTRIM$(__UI_Controls(id).Name))"
-                        FOR Dummy = 1 TO UBOUND(__UI_Controls)
-                            IF __UI_Controls(Dummy).ID AND (__UI_Controls(Dummy).Type = __UI_Type_ListBox OR __UI_Controls(Dummy).Type = __UI_Type_DropdownList OR __UI_Controls(Dummy).Type = __UI_Type_TrackBar) THEN
-                                PRINT #1, "        CASE " + CHR$(34) + UCASE$(RTRIM$(__UI_Controls(Dummy).Name)) + CHR$(34)
-                                PRINT #1,
-                            END IF
-                        NEXT
-                        PRINT #1, "    END SELECT"
-                END SELECT
-                PRINT #1, "END SUB"
-                PRINT #1,
-            NEXT
-            CLOSE #1
+            SaveForm
         CASE "HELPMENUABOUT"
-            Answer = __UI_MessageBox("UI beta" + CHR$(10) + "by Fellippe Heitor" + CHR$(10) + CHR$(10) + "Twitter: @fellippeheitor" + CHR$(10) + "e-mail: fellippe@qb64.org", "About", __UI_MsgBox_OkOnly + __UI_MsgBox_Information)
+            Answer = __UI_MessageBox("InForm Designer" + CHR$(10) + "by Fellippe Heitor" + CHR$(10) + CHR$(10) + "Twitter: @fellippeheitor" + CHR$(10) + "e-mail: fellippe@qb64.org", "About", __UI_MsgBox_OkOnly + __UI_MsgBox_Information)
         CASE "HELPMENUHELP"
-            Answer = __UI_MessageBox("This will soon become a GUI editor, which will allow an event-driven approach to programs written in QB64.", "What's all this?", __UI_MsgBox_OkOnly + __UI_MsgBox_Information)
+            Answer = __UI_MessageBox("Design a form and export the resulting code to generate an event-driven QB64 program.", "What's all this?", __UI_MsgBox_OkOnly + __UI_MsgBox_Information)
         CASE "FILEMENUEXIT"
             SYSTEM
     END SELECT
@@ -742,35 +439,37 @@ SUB __UI_BeforeUpdateDisplay
 
         IF FirstSelected = 0 THEN FirstSelected = PreviewFormID
 
-        IF __UI_Focus <> __UI_GetID("PropertyValue") THEN
+        IF __UI_Focus <> PropertyValueID THEN
             SELECT CASE SelectedProperty
                 CASE 1 'Name
-                    __UI_Texts(__UI_GetID("PropertyValue")) = RTRIM$(PreviewControls(FirstSelected).Name)
+                    __UI_Texts(PropertyValueID) = RTRIM$(PreviewControls(FirstSelected).Name)
                 CASE 2 'Caption
-                    __UI_Texts(__UI_GetID("PropertyValue")) = PreviewCaptions(FirstSelected)
+                    __UI_Texts(PropertyValueID) = PreviewCaptions(FirstSelected)
                 CASE 3 'Text
-                    __UI_Texts(__UI_GetID("PropertyValue")) = PreviewTexts(FirstSelected)
+                    __UI_Texts(PropertyValueID) = PreviewTexts(FirstSelected)
                 CASE 4 'Top
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Top))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Top))
                 CASE 5 'Left
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Left))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Left))
                 CASE 6 'Width
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Width))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Width))
                 CASE 7 'Height
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Height))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Height))
                 CASE 8 'Font
-                    __UI_Texts(__UI_GetID("PropertyValue")) = PreviewFonts(FirstSelected)
-                CASE 9 'BackStyle
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).BackStyle))
+                    __UI_Texts(PropertyValueID) = PreviewFonts(FirstSelected)
+                CASE 9 'Tooltip
+                    __UI_Texts(PropertyValueID) = PreviewTips(FirstSelected)
                 CASE 10 'Value
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Value))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Value))
                 CASE 11 'Min
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Min))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Min))
                 CASE 12 'Max
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Max))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Max))
                 CASE 13 'Interval
-                    __UI_Texts(__UI_GetID("PropertyValue")) = LTRIM$(STR$(PreviewControls(FirstSelected).Interval))
+                    __UI_Texts(PropertyValueID) = LTRIM$(STR$(PreviewControls(FirstSelected).Interval))
             END SELECT
+        ELSE
+            __UI_CursorAdjustments
         END IF
 
         'Update checkboxes:
@@ -783,6 +482,114 @@ SUB __UI_BeforeUpdateDisplay
         __UI_Controls(__UI_GetID("Hidden")).Value = PreviewControls(FirstSelected).Hidden
         __UI_Controls(__UI_GetID("CenteredWindow")).Value = PreviewControls(FirstSelected).CenteredWindow
         __UI_Controls(__UI_GetID("AlignOptions")).Value = PreviewControls(FirstSelected).Align + 1
+        IF PreviewControls(FirstSelected).BackStyle THEN
+            __UI_Controls(__UI_GetID("BackStyleOptions")).Value = 2
+        ELSE
+            __UI_Controls(__UI_GetID("BackStyleOptions")).Value = 1
+        END IF
+        __UI_Controls(__UI_GetID("Resizable")).Value = PreviewControls(FirstSelected).CanResize
+
+        'Disable properties that don't apply
+        __UI_Controls(__UI_GetID("Stretch")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("HasBorder")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("ShowPercentage")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("WordWrap")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("CanHaveFocus")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("Disabled")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("Hidden")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("CenteredWindow")).Disabled = __UI_True
+        __UI_Controls(__UI_GetID("AlignOptions")).Disabled = __UI_True
+        __UI_Controls(BackStyleListID).Disabled = __UI_True
+        __UI_ReplaceListBoxItem "PropertiesList", 3, "Text"
+        __UI_Controls(__UI_GetID("Resizable")).Disabled = __UI_True
+        IF TotalSelected > 0 THEN
+            SELECT EVERYCASE PreviewControls(FirstSelected).Type
+                CASE __UI_Type_PictureBox
+                    __UI_ReplaceListBoxItem "PropertiesList", 3, "Image file"
+                    __UI_Controls(__UI_GetID("Stretch")).Disabled = __UI_False
+                    __UI_Controls(BackStyleListID).Disabled = __UI_False
+                    SELECT CASE SelectedProperty
+                        CASE 1, 3, 4, 5, 6, 7, 9
+                            __UI_Controls(PropertyValueID).Disabled = __UI_False
+                        CASE ELSE
+                            __UI_Controls(PropertyValueID).Disabled = __UI_True
+                    END SELECT
+                CASE __UI_Type_Frame, __UI_Type_Label
+                    __UI_Controls(BackStyleListID).Disabled = __UI_False
+                    SELECT CASE SelectedProperty
+                        CASE 1, 2, 4, 5, 6, 7, 8, 9
+                            __UI_Controls(PropertyValueID).Disabled = __UI_False
+                        CASE ELSE
+                            __UI_Controls(PropertyValueID).Disabled = __UI_True
+                    END SELECT
+                CASE __UI_Type_TextBox
+                    __UI_Controls(BackStyleListID).Disabled = __UI_False
+                CASE __UI_Type_Button
+                    __UI_ReplaceListBoxItem "PropertiesList", 3, "Image file"
+                CASE __UI_Type_Button, __UI_Type_TextBox
+                    SELECT CASE SelectedProperty
+                        CASE 1, 2, 3, 4, 5, 6, 7, 8, 9
+                            __UI_Controls(PropertyValueID).Disabled = __UI_False
+                        CASE ELSE
+                            __UI_Controls(PropertyValueID).Disabled = __UI_True
+                    END SELECT
+                CASE __UI_Type_CheckBox, __UI_Type_RadioButton
+                    __UI_Controls(BackStyleListID).Disabled = __UI_False
+                    SELECT CASE SelectedProperty
+                        CASE 1, 2, 4, 5, 6, 7, 8, 9, 10
+                            __UI_Controls(PropertyValueID).Disabled = __UI_False
+                        CASE ELSE
+                            __UI_Controls(PropertyValueID).Disabled = __UI_True
+                    END SELECT
+                CASE __UI_Type_ProgressBar
+                    SELECT CASE SelectedProperty
+                        CASE 1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12
+                            __UI_Controls(PropertyValueID).Disabled = __UI_False
+                        CASE ELSE
+                            __UI_Controls(PropertyValueID).Disabled = __UI_True
+                    END SELECT
+                CASE __UI_Type_TrackBar
+                    SELECT CASE SelectedProperty
+                        CASE 1, 4, 5, 6, 7, 9, 10, 11, 12, 13
+                            __UI_Controls(PropertyValueID).Disabled = __UI_False
+                        CASE ELSE
+                            __UI_Controls(PropertyValueID).Disabled = __UI_True
+                    END SELECT
+                CASE __UI_Type_ListBox, __UI_Type_DropdownList
+                    __UI_Controls(BackStyleListID).Disabled = __UI_False
+                    SELECT CASE SelectedProperty
+                        CASE 1, 3, 4, 5, 6, 7, 8, 9, 10, 12
+                            __UI_Controls(PropertyValueID).Disabled = __UI_False
+                        CASE ELSE
+                            __UI_Controls(PropertyValueID).Disabled = __UI_True
+                    END SELECT
+                CASE __UI_Type_Frame, __UI_Type_Label, __UI_Type_TextBox, __UI_Type_ListBox, __UI_Type_DropdownList, __UI_Type_PictureBox
+                    __UI_Controls(__UI_GetID("HasBorder")).Disabled = __UI_False
+                CASE __UI_Type_ProgressBar
+                    __UI_Controls(__UI_GetID("ShowPercentage")).Disabled = __UI_False
+                CASE __UI_Type_Label
+                    __UI_Controls(__UI_GetID("WordWrap")).Disabled = __UI_False
+                CASE __UI_Type_Button, __UI_Type_CheckBox, __UI_Type_RadioButton, __UI_Type_TextBox, __UI_Type_ListBox, __UI_Type_DropdownList, __UI_Type_TrackBar
+                    __UI_Controls(__UI_GetID("CanHaveFocus")).Disabled = __UI_False
+                CASE __UI_Type_Button, __UI_Type_CheckBox, __UI_Type_RadioButton, __UI_Type_TextBox, __UI_Type_ListBox, __UI_Type_DropdownList, __UI_Type_TrackBar, __UI_Type_Label, __UI_Type_ProgressBar
+                    __UI_Controls(__UI_GetID("Disabled")).Disabled = __UI_False
+                CASE __UI_Type_Frame, __UI_Type_Button, __UI_Type_CheckBox, __UI_Type_RadioButton, __UI_Type_TextBox, __UI_Type_ListBox, __UI_Type_DropdownList, __UI_Type_TrackBar, __UI_Type_Label, __UI_Type_ProgressBar, __UI_Type_PictureBox
+                    __UI_Controls(__UI_GetID("Hidden")).Disabled = __UI_False
+                CASE __UI_Type_Label
+                    __UI_Controls(__UI_GetID("AlignOptions")).Disabled = __UI_False
+            END SELECT
+        ELSE
+            'Properties relative to the form
+            __UI_Controls(__UI_GetID("CenteredWindow")).Disabled = __UI_False
+            __UI_Controls(__UI_GetID("Resizable")).Disabled = __UI_False
+
+            SELECT CASE SelectedProperty
+                CASE 1, 2, 6, 7, 8 'Name, Caption, Width, Height, Font
+                    __UI_Controls(PropertyValueID).Disabled = __UI_False
+                CASE ELSE
+                    __UI_Controls(PropertyValueID).Disabled = __UI_True
+            END SELECT
+        END IF
 
         'Update the color mixer
         DIM ThisColor AS _UNSIGNED LONG, ThisBackColor AS _UNSIGNED LONG
@@ -894,6 +701,21 @@ SUB __UI_OnLoad
     __UI_Controls(__UI_GetID("AddFrame")).HelperCanvas = _NEWIMAGE(16, 16, 32)
     i = i + 1: _PUTIMAGE (0, 0), CommControls, __UI_Controls(__UI_GetID("AddFrame")).HelperCanvas, (0, i * 16 - 16)-STEP(15, 15)
 
+
+    'Properly loaded helper images assign a file name to the control's text property.
+    'Any text will do for internallly stored images:
+    __UI_Texts(__UI_GetID("AddButton")) = "."
+    __UI_Texts(__UI_GetID("AddLabel")) = "."
+    __UI_Texts(__UI_GetID("AddTextBox")) = "."
+    __UI_Texts(__UI_GetID("AddCheckBox")) = "."
+    __UI_Texts(__UI_GetID("AddRadioButton")) = "."
+    __UI_Texts(__UI_GetID("AddListBox")) = "."
+    __UI_Texts(__UI_GetID("AddDropdownList")) = "."
+    __UI_Texts(__UI_GetID("AddTrackBar")) = "."
+    __UI_Texts(__UI_GetID("AddProgressBar")) = "."
+    __UI_Texts(__UI_GetID("AddPictureBox")) = "."
+    __UI_Texts(__UI_GetID("AddFrame")) = "."
+
     _FREEIMAGE CommControls
 
     __UI_ForceRedraw = __UI_True
@@ -903,11 +725,40 @@ SUB __UI_OnLoad
     GreenTrackID = __UI_GetID("Green"): GreenTextBoxID = __UI_GetID("GreenValue")
     BlueTrackID = __UI_GetID("Blue"): BlueTextBoxID = __UI_GetID("BlueValue")
     ColorPropertiesListID = __UI_GetID("ColorPropertiesList")
+    BackStyleListID = __UI_GetID("BackStyleOptions")
     ColorPreviewID = __UI_GetID("ColorPreview")
+    PropertyValueID = __UI_GetID("PropertyValue")
 
     PreviewAttached = __UI_True
 
     IF _FILEEXISTS("UiEditorPreview.frmbin") THEN KILL "UiEditorPreview.frmbin"
+
+    DIM FileToOpen$, FreeFileNum AS INTEGER
+    IF _FILEEXISTS(COMMAND$) THEN
+        SELECT CASE LCASE$(RIGHT$(COMMAND$, 4))
+            CASE ".bas", ".frm"
+                IF _FILEEXISTS(LEFT$(COMMAND$, LEN(COMMAND$) - 4) + ".frmbin") THEN
+                    FileToOpen$ = LEFT$(COMMAND$, LEN(COMMAND$) - 4) + ".frmbin"
+                END IF
+            CASE ELSE
+                IF LCASE$(RIGHT$(COMMAND$, 7)) = ".frmbin" THEN
+                    FileToOpen$ = COMMAND$
+                END IF
+        END SELECT
+
+        IF LEN(FileToOpen$) > 0 THEN
+            FreeFileNum = FREEFILE
+            OPEN FileToOpen$ FOR BINARY AS #FreeFileNum
+            b$ = SPACE$(LOF(FreeFileNum))
+            GET #FreeFileNum, 1, b$
+            CLOSE #FreeFileNum
+
+            OPEN "UiEditorPreview.frmbin" FOR BINARY AS #FreeFileNum
+            PUT #FreeFileNum, 1, b$
+            CLOSE #FreeFileNum
+        END IF
+    END IF
+
     IF _FILEEXISTS("UiEditor.dat") THEN KILL "UiEditor.dat"
 
     $IF WIN THEN
@@ -967,17 +818,15 @@ SUB __UI_KeyPress (id AS LONG)
         CASE "PROPERTYVALUE"
             'Send the preview the new property value
             DIM FloatValue AS _FLOAT, b$, TempValue AS LONG, i AS LONG
-            DIM PropertyValueID AS LONG
 
-            PropertyValueID = __UI_GetID("PropertyValue")
             TempValue = __UI_Controls(__UI_GetID("PropertiesList")).Value
             SELECT CASE TempValue
-                CASE 1, 2, 3 'Name, caption, text
+                CASE 1, 2, 3, 9 'Name, caption, text, tooltips
                     b$ = MKL$(LEN(__UI_Texts(PropertyValueID))) + __UI_Texts(PropertyValueID)
                 CASE 4, 5, 6, 7 'Top, left, width, height
                     b$ = MKI$(VAL(__UI_Texts(PropertyValueID)))
                 CASE 8 'Font
-                CASE 9 'BackStyle
+                    b$ = MKL$(LEN(__UI_Texts(PropertyValueID))) + __UI_Texts(PropertyValueID)
                 CASE 10, 11, 12, 13 'Value, min, max, interval
                     b$ = _MK$(_FLOAT, VAL(__UI_Texts(PropertyValueID)))
             END SELECT
@@ -986,11 +835,15 @@ SUB __UI_KeyPress (id AS LONG)
 END SUB
 
 SUB __UI_ValueChanged (id AS LONG)
+    DIM b$
     SELECT EVERYCASE UCASE$(RTRIM$(__UI_Controls(id).Name))
         CASE "ALIGNOPTIONS"
-            DIM b$
             b$ = MKI$(__UI_Controls(__UI_GetID("AlignOptions")).Value - 1)
             SendData b$, 22
+        CASE "BACKSTYLEOPTIONS"
+            b$ = MKI$(0)
+            IF __UI_Controls(__UI_GetID("BACKSTYLEOPTIONS")).Value = 2 THEN b$ = MKI$(-1)
+            SendData b$, 28
         CASE "RED"
             __UI_Texts(RedTextBoxID) = LTRIM$(STR$(__UI_Controls(RedTrackID).Value))
         CASE "GREEN"
@@ -1005,12 +858,6 @@ SUB __UI_ValueChanged (id AS LONG)
     END SELECT
 END SUB
 
-SUB __UI_EndDrag
-END SUB
-
-SUB __UI_EndResize
-END SUB
-
 FUNCTION EditorImageData$ (FileName$)
     DIM A$
 
@@ -1239,6 +1086,7 @@ SUB LoadPreview
         REDIM PreviewTips(1 TO CVL(b$)) AS STRING
         REDIM PreviewFonts(1 TO CVL(b$)) AS STRING
         REDIM PreviewControls(0 TO CVL(b$)) AS __UI_ControlTYPE
+        REDIM PreviewParentIDS(0 TO CVL(b$)) AS STRING
 
         b$ = SPACE$(2): GET #BinaryFileNum, , b$
         IF CVI(b$) <> -1 THEN GOTO LoadError
@@ -1260,9 +1108,15 @@ SUB LoadPreview
             b$ = SPACE$(2): GET #BinaryFileNum, , b$
             NewTop = CVI(b$)
             b$ = SPACE$(2): GET #BinaryFileNum, , b$
-            NewParentID = SPACE$(CVI(b$)): GET #BinaryFileNum, , NewParentID
+            IF CVI(b$) > 0 THEN
+                NewParentID = SPACE$(CVI(b$)): GET #BinaryFileNum, , NewParentID
+            ELSE
+                NewParentID = ""
+            END IF
 
             PreviewControls(Dummy).ID = Dummy
+            PreviewParentIDS(Dummy) = RTRIM$(NewParentID)
+            PreviewControls(Dummy).Type = NewType
             PreviewControls(Dummy).Name = NewName
             PreviewControls(Dummy).Width = NewWidth
             PreviewControls(Dummy).Height = NewHeight
@@ -1350,6 +1204,9 @@ SUB LoadPreview
                         PreviewControls(Dummy).WordWrap = __UI_True
                     CASE -29
                         PreviewControls(Dummy).CanResize = __UI_True
+                    CASE -30
+                        b$ = SPACE$(2): GET #BinaryFileNum, , b$
+                        PreviewControls(Dummy).HotKeyPosition = CVI(b$)
                     CASE -1 'new control
                         EXIT DO
                     CASE -1024
@@ -1476,3 +1333,576 @@ SUB CheckPreview
         END IF
     $END IF
 END SUB
+
+SUB SaveForm
+    DIM BaseOutputFileName AS STRING, BinaryFileNum AS INTEGER
+    DIM TextFileNum AS INTEGER, Answer AS _BYTE, b$, i AS LONG
+    DIM a$, FontSetup$, FindSep AS INTEGER, NewFontFile AS STRING
+    DIM NewFontSize AS INTEGER, Dummy AS LONG
+
+    BaseOutputFileName = RTRIM$(PreviewControls(PreviewFormID).Name)
+    IF _FILEEXISTS(BaseOutputFileName + ".bas") OR _FILEEXISTS(BaseOutputFileName + ".frmbin") OR _FILEEXISTS(BaseOutputFileName + ".bas") THEN
+        Answer = __UI_MessageBox("Some files will be overwritten. Proceed?", "", __UI_MsgBox_YesNo + __UI_MsgBox_Question)
+        IF Answer = __UI_MsgBox_No THEN EXIT SUB
+    END IF
+    TextFileNum = FREEFILE
+    OPEN BaseOutputFileName + ".frm" FOR OUTPUT AS #TextFileNum
+    IF _FILEEXISTS(BaseOutputFileName + ".frmbin") THEN KILL BaseOutputFileName + ".frmbin"
+    BinaryFileNum = FREEFILE
+    OPEN BaseOutputFileName + ".frmbin" FOR BINARY AS #BinaryFileNum
+    PRINT #TextFileNum, "'InForm - GUI system for QB64 - Beta version 1"
+    PRINT #TextFileNum, "'Fellippe Heitor, 2016 - fellippe@qb64.org - @fellippeheitor"
+    PRINT #TextFileNum, "'-----------------------------------------------------------"
+    PRINT #TextFileNum, "SUB __UI_LoadForm"
+    PRINT #TextFileNum,
+    PRINT #TextFileNum, "    DIM __UI_NewID AS LONG"
+    PRINT #TextFileNum,
+    b$ = "InForm" + CHR$(1)
+    PUT #BinaryFileNum, 1, b$
+    b$ = MKL$(UBOUND(PreviewControls))
+    PUT #BinaryFileNum, , b$
+
+    'First pass is for the main form and containers (frames and menubars)
+    'Second pass is for the rest of controls
+    DIM ThisPass AS _BYTE
+    FOR ThisPass = 1 TO 2
+        FOR i = 1 TO UBOUND(PreviewControls)
+            IF PreviewControls(i).ID > 0 AND PreviewControls(i).Type <> __UI_Type_MenuPanel AND PreviewControls(i).Type <> __UI_Type_Font AND LEN(RTRIM$(PreviewControls(i).Name)) > 0 THEN
+                a$ = "    __UI_NewID = __UI_NewControl("
+                SELECT CASE PreviewControls(i).Type
+                    CASE __UI_Type_Form: a$ = a$ + "__UI_Type_Form, ": IF ThisPass = 2 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_Frame: a$ = a$ + "__UI_Type_Frame, ": IF ThisPass = 2 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_Button: a$ = a$ + "__UI_Type_Button, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_Label: a$ = a$ + "__UI_Type_Label, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_CheckBox: a$ = a$ + "__UI_Type_CheckBox, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_RadioButton: a$ = a$ + "__UI_Type_RadioButton, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_TextBox: a$ = a$ + "__UI_Type_TextBox, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_ProgressBar: a$ = a$ + "__UI_Type_ProgressBar, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_ListBox: a$ = a$ + "__UI_Type_ListBox, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_DropdownList: a$ = a$ + "__UI_Type_DropdownList, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_MenuBar: a$ = a$ + "__UI_Type_MenuBar, ": IF ThisPass = 2 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_MenuItem: a$ = a$ + "__UI_Type_MenuItem, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_PictureBox: a$ = a$ + "__UI_Type_PictureBox, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_TrackBar: a$ = a$ + "__UI_Type_TrackBar, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                    CASE __UI_Type_ContextMenu: a$ = a$ + "__UI_Type_ContextMenu, ": IF ThisPass = 1 THEN GOTO EndOfThisPass
+                END SELECT
+                a$ = a$ + CHR$(34) + RTRIM$(PreviewControls(i).Name) + CHR$(34) + ","
+                a$ = a$ + STR$(PreviewControls(i).Width) + ","
+                a$ = a$ + STR$(PreviewControls(i).Height) + ","
+                a$ = a$ + STR$(PreviewControls(i).Left) + ","
+                a$ = a$ + STR$(PreviewControls(i).Top) + ","
+                IF LEN(PreviewParentIDS(i)) > 0 THEN
+                    a$ = a$ + " __UI_GetID(" + CHR$(34) + PreviewParentIDS(i) + CHR$(34) + "))"
+                ELSE
+                    a$ = a$ + " 0)"
+                END IF
+                PRINT #TextFileNum, a$
+                b$ = MKI$(-1) + MKL$(0) + MKI$(PreviewControls(i).Type) '-1 indicates a new control
+                b$ = b$ + MKI$(LEN(RTRIM$(PreviewControls(i).Name)))
+                b$ = b$ + RTRIM$(PreviewControls(i).Name)
+                b$ = b$ + MKI$(PreviewControls(i).Width) + MKI$(PreviewControls(i).Height) + MKI$(PreviewControls(i).Left) + MKI$(PreviewControls(i).Top) + MKI$(LEN(PreviewParentIDS(i))) + PreviewParentIDS(i)
+                PUT #BinaryFileNum, , b$
+
+                IF LEN(PreviewCaptions(i)) > 0 THEN
+                    IF PreviewControls(i).HotKeyPosition > 0 THEN
+                        a$ = LEFT$(PreviewCaptions(i), PreviewControls(i).HotKeyPosition - 1) + "&" + MID$(PreviewCaptions(i), PreviewControls(i).HotKeyPosition)
+                    ELSE
+                        a$ = PreviewCaptions(i)
+                    END IF
+                    a$ = "    __UI_SetCaption " + CHR$(34) + RTRIM$(PreviewControls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(a$)
+                    b$ = MKI$(-2) + MKL$(LEN(PreviewCaptions(i))) '-2 indicates a caption
+                    PUT #BinaryFileNum, , b$
+                    PUT #BinaryFileNum, , PreviewCaptions(i)
+                    PRINT #TextFileNum, a$
+                END IF
+
+                IF LEN(PreviewTips(i)) > 0 THEN
+                    a$ = "    __UI_SetTip " + CHR$(34) + RTRIM$(PreviewControls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(PreviewTips(i))
+                    b$ = MKI$(-24) + MKL$(LEN(PreviewTips(i))) '-24 indicates a tip
+                    PUT #BinaryFileNum, , b$
+                    PUT #BinaryFileNum, , PreviewTips(i)
+                    PRINT #TextFileNum, a$
+                END IF
+
+                IF LEN(PreviewTexts(i)) > 0 THEN
+                    SELECT CASE PreviewControls(i).Type
+                        CASE __UI_Type_ListBox, __UI_Type_DropdownList
+                            DIM TempCaption$, TempText$, FindLF&, ThisItem%, ThisItemTop%
+                            DIM LastVisibleItem AS INTEGER
+
+                            TempText$ = PreviewTexts(i)
+                            ThisItem% = 0
+                            DO WHILE LEN(TempText$)
+                                ThisItem% = ThisItem% + 1
+                                FindLF& = INSTR(TempText$, CHR$(13))
+                                IF FindLF& THEN
+                                    TempCaption$ = LEFT$(TempText$, FindLF& - 1)
+                                    TempText$ = MID$(TempText$, FindLF& + 1)
+                                ELSE
+                                    TempCaption$ = TempText$
+                                    TempText$ = ""
+                                END IF
+                                a$ = "    __UI_AddListBoxItem " + CHR$(34) + RTRIM$(PreviewControls(i).Name) + CHR$(34) + ", " + CHR$(34) + TempCaption$ + CHR$(34)
+                                PRINT #TextFileNum, a$
+                            LOOP
+                        CASE __UI_Type_PictureBox, __UI_Type_Button
+                            a$ = "    __UI_LoadImage __UI_Controls(__UI_NewID), " + CHR$(34) + PreviewTexts(i) + CHR$(34)
+                            PRINT #TextFileNum, a$
+                        CASE ELSE
+                            a$ = "    __UI_SetText " + CHR$(34) + RTRIM$(PreviewControls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(PreviewCaptions(i))
+                            PRINT #TextFileNum, a$
+                    END SELECT
+                    b$ = MKI$(-3) + MKL$(LEN(PreviewTexts(i))) '-3 indicates a text
+                    PUT #BinaryFileNum, , b$
+                    PUT #BinaryFileNum, , PreviewTexts(i)
+                END IF
+                IF PreviewControls(i).TransparentColor > 0 THEN
+                    PRINT #TextFileNum, "    __UI_ClearColor __UI_Controls(__UI_NewID).HelperCanvas, " + LTRIM$(STR$(PreviewControls(i).TransparentColor)) + ", -1"
+                    b$ = MKI$(-28) + _MK$(_UNSIGNED LONG, PreviewControls(i).TransparentColor)
+                    PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Stretch THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Stretch = __UI_True"
+                    b$ = MKI$(-4)
+                    PUT #BinaryFileNum, , b$
+                END IF
+                'Fonts
+                IF LEN(PreviewFonts(i)) > 0 THEN
+                    DIM NewFontParameters AS STRING
+                    FontSetup$ = PreviewFonts(i)
+                    b$ = MKI$(-5) + MKI$(LEN(FontSetup$)) + FontSetup$
+                    PUT #BinaryFileNum, , b$
+
+                    'Parse FontSetup$ into Font variables
+                    FindSep = INSTR(FontSetup$, "*")
+                    NewFontFile = LEFT$(FontSetup$, FindSep - 1)
+                    FontSetup$ = MID$(FontSetup$, FindSep + 1)
+
+                    FindSep = INSTR(FontSetup$, "*")
+                    NewFontParameters = LEFT$(FontSetup$, FindSep - 1)
+                    FontSetup$ = MID$(FontSetup$, FindSep + 1)
+
+                    FontSetup$ = "__UI_Font(" + CHR$(34) + NewFontFile + CHR$(34) + ", " + FontSetup$ + ", " + CHR$(34) + NewFontParameters + CHR$(34) + ")"
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Font = " + FontSetup$
+                END IF
+                'Colors are saved only if they differ from the theme's defaults
+                IF PreviewControls(i).ForeColor > 0 AND PreviewControls(i).ForeColor <> __UI_DefaultColor(PreviewControls(i).Type, 1) THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).ForeColor = _RGB32(" + LTRIM$(STR$(_RED32(PreviewControls(i).ForeColor))) + ", " + LTRIM$(STR$(_GREEN32(PreviewControls(i).ForeColor))) + ", " + LTRIM$(STR$(_BLUE32(PreviewControls(i).ForeColor))) + ")"
+                    b$ = MKI$(-6) + _MK$(_UNSIGNED LONG, PreviewControls(i).ForeColor)
+                    PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).BackColor > 0 AND PreviewControls(i).BackColor <> __UI_DefaultColor(PreviewControls(i).Type, 2) THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).BackColor = _RGB32(" + LTRIM$(STR$(_RED32(PreviewControls(i).BackColor))) + ", " + LTRIM$(STR$(_GREEN32(PreviewControls(i).BackColor))) + ", " + LTRIM$(STR$(_BLUE32(PreviewControls(i).BackColor))) + ")"
+                    b$ = MKI$(-7) + _MK$(_UNSIGNED LONG, PreviewControls(i).BackColor)
+                    PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).SelectedForeColor > 0 AND PreviewControls(i).SelectedForeColor <> __UI_DefaultColor(PreviewControls(i).Type, 3) THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).SelectedForeColor = _RGB32(" + LTRIM$(STR$(_RED32(PreviewControls(i).SelectedForeColor))) + ", " + LTRIM$(STR$(_GREEN32(PreviewControls(i).SelectedForeColor))) + ", " + LTRIM$(STR$(_BLUE32(PreviewControls(i).SelectedForeColor))) + ")"
+                    b$ = MKI$(-8) + _MK$(_UNSIGNED LONG, PreviewControls(i).SelectedForeColor)
+                    PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).SelectedBackColor > 0 AND PreviewControls(i).SelectedBackColor <> __UI_DefaultColor(PreviewControls(i).Type, 4) THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).SelectedBackColor = _RGB32(" + LTRIM$(STR$(_RED32(PreviewControls(i).SelectedBackColor))) + ", " + LTRIM$(STR$(_GREEN32(PreviewControls(i).SelectedBackColor))) + ", " + LTRIM$(STR$(_BLUE32(PreviewControls(i).SelectedBackColor))) + ")"
+                    b$ = MKI$(-9) + _MK$(_UNSIGNED LONG, PreviewControls(i).SelectedBackColor)
+                    PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).BorderColor > 0 AND PreviewControls(i).BorderColor <> __UI_DefaultColor(PreviewControls(i).Type, 5) THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).BorderColor = _RGB32(" + LTRIM$(STR$(_RED32(PreviewControls(i).BorderColor))) + ", " + LTRIM$(STR$(_GREEN32(PreviewControls(i).BorderColor))) + ", " + LTRIM$(STR$(_BLUE32(PreviewControls(i).BorderColor))) + ")"
+                    b$ = MKI$(-10) + _MK$(_UNSIGNED LONG, PreviewControls(i).BorderColor)
+                    PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).BackStyle = __UI_Transparent THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).BackStyle = __UI_Transparent"
+                    b$ = MKI$(-11): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).HasBorder THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).HasBorder = __UI_True"
+                    b$ = MKI$(-12): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Align = __UI_Center THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Align = __UI_Center"
+                    b$ = MKI$(-13) + _MK$(_BYTE, PreviewControls(i).Align): PUT #BinaryFileNum, , b$
+                ELSEIF PreviewControls(i).Align = __UI_Right THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Align = __UI_Right"
+                    b$ = MKI$(-13) + _MK$(_BYTE, PreviewControls(i).Align): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Value <> 0 THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Value = " + LTRIM$(STR$(PreviewControls(i).Value))
+                    b$ = MKI$(-14) + _MK$(_FLOAT, PreviewControls(i).Value): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Min <> 0 THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Min = " + LTRIM$(STR$(PreviewControls(i).Min))
+                    b$ = MKI$(-15) + _MK$(_FLOAT, PreviewControls(i).Min): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Max <> 0 THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Max = " + LTRIM$(STR$(PreviewControls(i).Max))
+                    b$ = MKI$(-16) + _MK$(_FLOAT, PreviewControls(i).Max): PUT #BinaryFileNum, , b$
+                END IF
+                'IF PreviewControls(i).HotKey <> 0 THEN
+                '    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).HotKey = " + LTRIM$(STR$(PreviewControls(i).HotKey))
+                '    b$ = MKI$(-17) + MKI$(PreviewControls(i).HotKey): PUT #BinaryFileNum, , b$
+                'END IF
+                'IF PreviewControls(i).HotKeyOffset <> 0 THEN
+                '    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).HotKeyOffset = " + LTRIM$(STR$(PreviewControls(i).HotKeyOffset))
+                '    b$ = MKI$(-18) + MKI$(PreviewControls(i).HotKeyOffset): PUT #BinaryFileNum, , b$
+                'END IF
+                IF PreviewControls(i).ShowPercentage THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).ShowPercentage = __UI_True"
+                    b$ = MKI$(-19): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).CanHaveFocus THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True"
+                    b$ = MKI$(-20): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Disabled THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Disabled = __UI_True"
+                    b$ = MKI$(-21): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Hidden THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Hidden = __UI_True"
+                    b$ = MKI$(-22): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).CenteredWindow THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).CenteredWindow = __UI_True"
+                    b$ = MKI$(-23): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).ContextMenuID THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).ContextMenuID = __UI_GetID(" + CHR$(34) + RTRIM$(PreviewControls(PreviewControls(i).ContextMenuID).Name) + CHR$(34) + ")"
+                    b$ = MKI$(-25) + MKI$(LEN(RTRIM$(PreviewControls(PreviewControls(i).ContextMenuID).Name))) + RTRIM$(PreviewControls(PreviewControls(i).ContextMenuID).Name): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).Interval THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).Interval = " + LTRIM$(STR$(PreviewControls(i).Interval))
+                    b$ = MKI$(-26) + _MK$(_FLOAT, PreviewControls(i).Interval): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).WordWrap THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).WordWrap = __UI_True"
+                    b$ = MKI$(-27): PUT #BinaryFileNum, , b$
+                END IF
+                IF PreviewControls(i).CanResize AND PreviewControls(i).Type = __UI_Type_Form THEN
+                    PRINT #TextFileNum, "    __UI_Controls(__UI_NewID).CanResize = __UI_True"
+                    b$ = MKI$(-29): PUT #BinaryFileNum, , b$
+                END IF
+                PRINT #TextFileNum,
+            END IF
+            EndOfThisPass:
+        NEXT
+    NEXT ThisPass
+
+    b$ = MKI$(-1024): PUT #BinaryFileNum, , b$ 'end of file
+    PRINT #TextFileNum, "END SUB"
+    CLOSE #TextFileNum, #BinaryFileNum
+    OPEN BaseOutputFileName + ".bas" FOR OUTPUT AS #TextFileNum
+    PRINT #TextFileNum, "'This program was generated by"
+    PRINT #TextFileNum, "'InForm - GUI system for QB64 - Beta version 1"
+    PRINT #TextFileNum, "'Fellippe Heitor, 2016 - fellippe@qb64.org - @fellippeheitor"
+    PRINT #TextFileNum, "'-----------------------------------------------------------"
+    PRINT #TextFileNum, "'$INCLUDE:'InForm.ui'"
+    PRINT #TextFileNum, "'$INCLUDE:'" + BaseOutputFileName + ".frm'"
+    PRINT #TextFileNum, "'$INCLUDE:'xp.uitheme'"
+    PRINT #TextFileNum,
+    PRINT #TextFileNum, "'Event procedures: ---------------------------------------------------------------"
+    FOR i = 1 TO 12
+        SELECT EVERYCASE i
+            CASE 1: PRINT #TextFileNum, "SUB __UI_OnLoad"
+            CASE 2: PRINT #TextFileNum, "SUB __UI_BeforeUpdateDisplay"
+            CASE 3: PRINT #TextFileNum, "SUB __UI_BeforeUnload"
+            CASE 4: PRINT #TextFileNum, "SUB __UI_Click (id AS LONG)"
+            CASE 5: PRINT #TextFileNum, "SUB __UI_MouseEnter (id AS LONG)"
+            CASE 6: PRINT #TextFileNum, "SUB __UI_MouseLeave (id AS LONG)"
+            CASE 7: PRINT #TextFileNum, "SUB __UI_FocusIn (id AS LONG)"
+            CASE 8: PRINT #TextFileNum, "SUB __UI_FocusOut (id AS LONG)"
+            CASE 9: PRINT #TextFileNum, "SUB __UI_MouseDown (id AS LONG)"
+            CASE 10: PRINT #TextFileNum, "SUB __UI_MouseUp (id AS LONG)"
+            CASE 11: PRINT #TextFileNum, "SUB __UI_KeyPress (id AS LONG)"
+            CASE 12: PRINT #TextFileNum, "SUB __UI_ValueChanged (id AS LONG)"
+
+            CASE 1 TO 3
+                PRINT #TextFileNum,
+
+            CASE 4 TO 6, 9, 10 'All controls except for Menu panels, and internal context menus
+                PRINT #TextFileNum, "    SELECT CASE UCASE$(RTRIM$(__UI_Controls(id).Name))"
+                FOR Dummy = 1 TO UBOUND(PreviewControls)
+                    IF PreviewControls(Dummy).ID > 0 AND PreviewControls(Dummy).Type <> __UI_Type_Font AND PreviewControls(Dummy).Type <> __UI_Type_ContextMenu THEN
+                        PRINT #TextFileNum, "        CASE " + CHR$(34) + UCASE$(RTRIM$(PreviewControls(Dummy).Name)) + CHR$(34)
+                        PRINT #TextFileNum,
+                    END IF
+                NEXT
+                PRINT #TextFileNum, "    END SELECT"
+
+            CASE 7, 8, 11 'Controls that can have focus only
+                PRINT #TextFileNum, "    SELECT CASE UCASE$(RTRIM$(__UI_Controls(id).Name))"
+                FOR Dummy = 1 TO UBOUND(PreviewControls)
+                    IF PreviewControls(Dummy).ID > 0 AND PreviewControls(Dummy).CanHaveFocus THEN
+                        PRINT #TextFileNum, "        CASE " + CHR$(34) + UCASE$(RTRIM$(PreviewControls(Dummy).Name)) + CHR$(34)
+                        PRINT #TextFileNum,
+                    END IF
+                NEXT
+                PRINT #TextFileNum, "    END SELECT"
+
+            CASE 12 'Dropdown list, List box and Track bar
+                PRINT #TextFileNum, "    SELECT CASE UCASE$(RTRIM$(__UI_Controls(id).Name))"
+                FOR Dummy = 1 TO UBOUND(PreviewControls)
+                    IF PreviewControls(Dummy).ID > 0 AND (PreviewControls(Dummy).Type = __UI_Type_ListBox OR PreviewControls(Dummy).Type = __UI_Type_DropdownList OR PreviewControls(Dummy).Type = __UI_Type_TrackBar) THEN
+                        PRINT #TextFileNum, "        CASE " + CHR$(34) + UCASE$(RTRIM$(PreviewControls(Dummy).Name)) + CHR$(34)
+                        PRINT #TextFileNum,
+                    END IF
+                NEXT
+                PRINT #TextFileNum, "    END SELECT"
+        END SELECT
+        PRINT #TextFileNum, "END SUB"
+        PRINT #TextFileNum,
+    NEXT
+    CLOSE #TextFileNum
+    Answer = __UI_MessageBox("Exporting successful. Files output:" + CHR$(10) + "    " + BaseOutputFileName + ".bas" + CHR$(10) + "    " + BaseOutputFileName + ".frm" + CHR$(10) + "    " + BaseOutputFileName + ".frmbin" + CHR$(10) + CHR$(10) + "Exit to QB64?", "", __UI_MsgBox_YesNo + __UI_MsgBox_Question)
+    IF Answer = __UI_MsgBox_No THEN EXIT SUB
+    $IF WIN THEN
+        SHELL _DONTWAIT "qb64.exe " + BaseOutputFileName + ".bas"
+    $ELSE
+        SHELL _DONTWAIT "./qb64 " + BaseOutputFileName + ".bas"
+    $END IF
+    SYSTEM
+END SUB
+
+SUB SaveSelf
+    DIM b$, i AS LONG, a$, FontSetup$
+    OPEN "form.frm" FOR OUTPUT AS #1
+    IF _FILEEXISTS("form.frmbin") THEN KILL "form.frmbin"
+    OPEN "form.frmbin" FOR BINARY AS #2
+    PRINT #1, "'UI form, beta version"
+    PRINT #1, "DIM __UI_NewID AS LONG"
+    PRINT #1,
+    b$ = "UI"
+    PUT #2, 1, b$
+    b$ = MKL$(UBOUND(__UI_Controls))
+    PUT #2, , b$
+    FOR i = 1 TO UBOUND(__UI_Controls)
+        IF __UI_Controls(i).ID > 0 AND __UI_Controls(i).Type <> __UI_Type_MenuPanel AND __UI_Controls(i).Type <> __UI_Type_Font AND LEN(RTRIM$(__UI_Controls(i).Name)) > 0 THEN
+            a$ = "__UI_NewID = __UI_NewControl("
+            SELECT CASE __UI_Controls(i).Type
+                CASE __UI_Type_Form: a$ = a$ + "__UI_Type_Form, "
+                CASE __UI_Type_Frame: a$ = a$ + "__UI_Type_Frame, "
+                CASE __UI_Type_Button: a$ = a$ + "__UI_Type_Button, "
+                CASE __UI_Type_Label: a$ = a$ + "__UI_Type_Label, "
+                CASE __UI_Type_CheckBox: a$ = a$ + "__UI_Type_CheckBox, "
+                CASE __UI_Type_RadioButton: a$ = a$ + "__UI_Type_RadioButton, "
+                CASE __UI_Type_TextBox: a$ = a$ + "__UI_Type_TextBox, "
+                CASE __UI_Type_ProgressBar: a$ = a$ + "__UI_Type_ProgressBar, "
+                CASE __UI_Type_ListBox: a$ = a$ + "__UI_Type_ListBox, "
+                CASE __UI_Type_DropdownList: a$ = a$ + "__UI_Type_DropdownList, "
+                CASE __UI_Type_MenuBar: a$ = a$ + "__UI_Type_MenuBar, "
+                CASE __UI_Type_MenuItem: a$ = a$ + "__UI_Type_MenuItem, "
+                CASE __UI_Type_PictureBox: a$ = a$ + "__UI_Type_PictureBox, "
+                CASE __UI_Type_TrackBar: a$ = a$ + "__UI_Type_TrackBar, "
+                CASE __UI_Type_ContextMenu: a$ = a$ + "__UI_Type_ContextMenu, "
+            END SELECT
+            a$ = a$ + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ","
+            a$ = a$ + STR$(__UI_Controls(i).Width) + ","
+            a$ = a$ + STR$(__UI_Controls(i).Height) + ","
+            a$ = a$ + STR$(__UI_Controls(i).Left) + ","
+            a$ = a$ + STR$(__UI_Controls(i).Top) + ","
+            IF __UI_Controls(i).ParentID > 0 THEN
+                a$ = a$ + " __UI_GetID(" + CHR$(34) + RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name) + CHR$(34) + "))"
+            ELSE
+                a$ = a$ + "0)"
+            END IF
+            PRINT #1, a$
+            b$ = MKI$(-1) + MKL$(0) + MKI$(__UI_Controls(i).Type) '-1 indicates a new control
+            b$ = b$ + MKI$(LEN(RTRIM$(__UI_Controls(i).Name)))
+            b$ = b$ + RTRIM$(__UI_Controls(i).Name)
+            b$ = b$ + MKI$(__UI_Controls(i).Width) + MKI$(__UI_Controls(i).Height) + MKI$(__UI_Controls(i).Left) + MKI$(__UI_Controls(i).Top) + MKI$(LEN(RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name))) + RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name)
+            PUT #2, , b$
+
+            IF LEN(__UI_Captions(i)) > 0 THEN
+                a$ = "__UI_SetCaption " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(__UI_Captions(i))
+                b$ = MKI$(-2) + MKL$(LEN(__UI_Captions(i))) '-2 indicates a caption
+                PUT #2, , b$
+                PUT #2, , __UI_Captions(i)
+                PRINT #1, a$
+            END IF
+
+            IF LEN(__UI_Tips(i)) > 0 THEN
+                a$ = "__UI_SetTip " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(__UI_Tips(i))
+                b$ = MKI$(-24) + MKL$(LEN(__UI_Tips(i))) '-24 indicates a tip
+                PUT #2, , b$
+                PUT #2, , __UI_Tips(i)
+                PRINT #1, a$
+            END IF
+
+            IF LEN(__UI_Texts(i)) > 0 THEN
+                SELECT CASE __UI_Controls(i).Type
+                    CASE __UI_Type_ListBox, __UI_Type_DropdownList
+                        DIM TempCaption$, TempText$, FindLF&, ThisItem%, ThisItemTop%
+                        DIM LastVisibleItem AS INTEGER
+
+                        TempText$ = __UI_Texts(i)
+                        ThisItem% = 0
+                        DO WHILE LEN(TempText$)
+                            ThisItem% = ThisItem% + 1
+                            FindLF& = INSTR(TempText$, CHR$(13))
+                            IF FindLF& THEN
+                                TempCaption$ = LEFT$(TempText$, FindLF& - 1)
+                                TempText$ = MID$(TempText$, FindLF& + 1)
+                            ELSE
+                                TempCaption$ = TempText$
+                                TempText$ = ""
+                            END IF
+                            a$ = "__UI_AddListBoxItem " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + CHR$(34) + TempCaption$ + CHR$(34)
+                            PRINT #1, a$
+                        LOOP
+                    CASE __UI_Type_PictureBox, __UI_Type_Button
+                        a$ = "__UI_LoadImage __UI_Controls(__UI_NewID), " + CHR$(34) + __UI_Texts(i) + CHR$(34)
+                        PRINT #1, a$
+                    CASE ELSE
+                        a$ = "__UI_SetText " + CHR$(34) + RTRIM$(__UI_Controls(i).Name) + CHR$(34) + ", " + __UI_SpecialCharsToCHR$(__UI_Captions(i))
+                        PRINT #1, a$
+                END SELECT
+                b$ = MKI$(-3) + MKL$(LEN(__UI_Texts(i))) '-3 indicates a text
+                PUT #2, , b$
+                PUT #2, , __UI_Texts(i)
+            END IF
+            IF __UI_Controls(i).TransparentColor > 0 THEN
+                PRINT #1, "__UI_ClearColor __UI_Controls(__UI_NewID).HelperCanvas, " + LTRIM$(STR$(__UI_Controls(i).TransparentColor)) + ", -1"
+                b$ = MKI$(-28) + _MK$(_UNSIGNED LONG, __UI_Controls(i).TransparentColor)
+                PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Stretch THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Stretch = __UI_True"
+                b$ = MKI$(-4)
+                PUT #2, , b$
+            END IF
+            'Inheritable properties won't be saved if they are the same as the parent's
+            IF __UI_Controls(i).Type = __UI_Type_Form THEN
+                IF __UI_Controls(i).Font = 8 OR __UI_Controls(i).Font = 16 THEN
+                    'Internal fonts
+                    SaveInternalFont:
+                    FontSetup$ = "__UI_Font(" + CHR$(34) + "VGA Emulated" + CHR$(34) + ", " + CHR$(34) + CHR$(34) + "," + STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max) + ", " + CHR$(34) + CHR$(34) + ")"
+                    PRINT #1, "__UI_Controls(__UI_NewID).Font = " + FontSetup$
+                    FontSetup$ = "**" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max))
+                    b$ = MKI$(-5) + MKI$(LEN(FontSetup$)) + FontSetup$
+                    PUT #2, , b$
+                ELSE
+                    SaveExternalFont:
+                    FontSetup$ = "__UI_Font(" + CHR$(34) + __UI_Texts(__UI_GetFontID(__UI_Controls(i).Font)) + CHR$(34) + "," + STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max) + ", " + CHR$(34) + __UI_Captions(__UI_GetFontID(__UI_Controls(i).Font)) + CHR$(34) + ")"
+                    PRINT #1, "__UI_Controls(__UI_NewID).Font = " + FontSetup$
+                    FontSetup$ = RTRIM$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Name) + "\" + __UI_Texts(__UI_GetFontID(__UI_Controls(i).Font)) + "\" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max)) + "\" + __UI_Captions(__UI_GetFontID(__UI_Controls(i).Font))
+                    b$ = MKI$(-5) + MKI$(LEN(FontSetup$)) + FontSetup$
+                    PUT #2, , b$
+                END IF
+            ELSE
+                IF __UI_Controls(i).ParentID > 0 THEN
+                    IF __UI_Controls(i).Font > 0 AND __UI_Controls(i).Font <> __UI_Controls(__UI_Controls(i).ParentID).Font THEN
+                        IF __UI_Controls(i).Font = 8 OR __UI_Controls(i).Font = 167 THEN
+                            GOTO SaveInternalFont
+                        ELSE
+                            GOTO SaveExternalFont
+                        END IF
+                    END IF
+                ELSE
+                    IF __UI_Controls(i).Font > 0 AND __UI_Controls(i).Font <> __UI_Controls(__UI_FormID).Font THEN
+                        IF __UI_Controls(i).Font = 8 OR __UI_Controls(i).Font = 167 THEN
+                            GOTO SaveInternalFont
+                        ELSE
+                            GOTO SaveExternalFont
+                        END IF
+                    END IF
+                END IF
+            END IF
+            'Colors are saved only if they differ from the theme's defaults
+            IF __UI_Controls(i).ForeColor <> __UI_DefaultColor(__UI_Controls(i).Type, 1) THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).ForeColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).ForeColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).ForeColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).ForeColor))) + ")"
+                b$ = MKI$(-6) + _MK$(_UNSIGNED LONG, __UI_Controls(i).ForeColor)
+                PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).BackColor <> __UI_DefaultColor(__UI_Controls(i).Type, 2) THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).BackColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).BackColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).BackColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).BackColor))) + ")"
+                b$ = MKI$(-7) + _MK$(_UNSIGNED LONG, __UI_Controls(i).BackColor)
+                PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).SelectedForeColor <> __UI_DefaultColor(__UI_Controls(i).Type, 3) THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).SelectedForeColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).SelectedForeColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).SelectedForeColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).SelectedForeColor))) + ")"
+                b$ = MKI$(-8) + _MK$(_UNSIGNED LONG, __UI_Controls(i).SelectedForeColor)
+                PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).SelectedBackColor <> __UI_DefaultColor(__UI_Controls(i).Type, 4) THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).SelectedBackColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).SelectedBackColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).SelectedBackColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).SelectedBackColor))) + ")"
+                b$ = MKI$(-9) + _MK$(_UNSIGNED LONG, __UI_Controls(i).SelectedBackColor)
+                PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).BorderColor <> __UI_DefaultColor(__UI_Controls(i).Type, 5) THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).BorderColor = _RGB32(" + LTRIM$(STR$(_RED32(__UI_Controls(i).BorderColor))) + ", " + LTRIM$(STR$(_GREEN32(__UI_Controls(i).BorderColor))) + ", " + LTRIM$(STR$(_BLUE32(__UI_Controls(i).BorderColor))) + ")"
+                b$ = MKI$(-10) + _MK$(_UNSIGNED LONG, __UI_Controls(i).BorderColor)
+                PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).BackStyle = __UI_Transparent THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).BackStyle = __UI_Transparent"
+                b$ = MKI$(-11): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).HasBorder THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).HasBorder = __UI_True"
+                b$ = MKI$(-12): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Align = __UI_Center THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Align = __UI_Center"
+                b$ = MKI$(-13) + _MK$(_BYTE, __UI_Controls(i).Align): PUT #2, , b$
+            ELSEIF __UI_Controls(i).Align = __UI_Right THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Align = __UI_Right"
+                b$ = MKI$(-13) + _MK$(_BYTE, __UI_Controls(i).Align): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Value <> 0 THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Value = " + LTRIM$(STR$(__UI_Controls(i).Value))
+                b$ = MKI$(-14) + _MK$(_FLOAT, __UI_Controls(i).Value): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Min <> 0 THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Min = " + LTRIM$(STR$(__UI_Controls(i).Min))
+                b$ = MKI$(-15) + _MK$(_FLOAT, __UI_Controls(i).Min): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Max <> 0 THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Max = " + LTRIM$(STR$(__UI_Controls(i).Max))
+                b$ = MKI$(-16) + _MK$(_FLOAT, __UI_Controls(i).Max): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).HotKey <> 0 THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).HotKey = " + LTRIM$(STR$(__UI_Controls(i).HotKey))
+                b$ = MKI$(-17) + MKI$(__UI_Controls(i).HotKey): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).HotKeyOffset <> 0 THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).HotKeyOffset = " + LTRIM$(STR$(__UI_Controls(i).HotKeyOffset))
+                b$ = MKI$(-18) + MKI$(__UI_Controls(i).HotKeyOffset): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).ShowPercentage THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).ShowPercentage = __UI_True"
+                b$ = MKI$(-19): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).CanHaveFocus THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).CanHaveFocus = __UI_True"
+                b$ = MKI$(-20): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Disabled THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Disabled = __UI_True"
+                b$ = MKI$(-21): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Hidden THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Hidden = __UI_True"
+                b$ = MKI$(-22): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).CenteredWindow THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).CenteredWindow = __UI_True"
+                b$ = MKI$(-23): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).ContextMenuID THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).ContextMenuID = __UI_GetID(" + CHR$(34) + RTRIM$(__UI_Controls(__UI_Controls(i).ContextMenuID).Name) + CHR$(34) + ")"
+                b$ = MKI$(-25) + MKI$(LEN(RTRIM$(__UI_Controls(__UI_Controls(i).ContextMenuID).Name))) + RTRIM$(__UI_Controls(__UI_Controls(i).ContextMenuID).Name): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).Interval THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).Interval = " + LTRIM$(STR$(__UI_Controls(i).Interval))
+                b$ = MKI$(-26) + _MK$(_FLOAT, __UI_Controls(i).Interval): PUT #2, , b$
+            END IF
+            IF __UI_Controls(i).WordWrap THEN
+                PRINT #1, "__UI_Controls(__UI_NewID).WordWrap = __UI_True"
+                b$ = MKI$(-27): PUT #2, , b$
+            END IF
+            PRINT #1,
+        END IF
+    NEXT
+    b$ = MKI$(-1024): PUT #2, , b$ 'end of file
+    CLOSE #1, #2
+END SUB
diff --git a/UiEditor.frm b/UiEditor.frm
index fc02460..0cc588d 100644
--- a/UiEditor.frm
+++ b/UiEditor.frm
@@ -1,42 +1,51 @@
-'InForm - GUI system for QB64
+'InForm - GUI system for QB64 - Beta version 1
 'Fellippe Heitor, 2016 - fellippe@qb64.org - @fellippeheitor
-'Beta version 1
+'-----------------------------------------------------------
 SUB __UI_LoadForm
+
     DIM __UI_NewID AS LONG
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Form, "Form1", 598, 430, 0, 0, 0)
-    __UI_SetCaption "Form1", "InForm Designer"
-    __UI_Controls(__UI_NewID).Font = __UI_Font("Noto Mono", "InForm\NotoMono-Regular.ttf", 12, "MONOSPACE")
+    __UI_NewID = __UI_NewControl(__UI_Type_Form, "UiEditorForm", 598, 430, 0, 0, 0)
+    __UI_SetCaption "UiEditorForm", "InForm Designer"
+    __UI_Controls(__UI_NewID).Font = __UI_Font("InForm\NotoMono-Regular.ttf", 12, "MONOSPACE")
 
-    __UI_NewID = __UI_NewControl(__UI_Type_MenuBar, "FileMenu", 56, 18, 14, 0, 0)
+    __UI_NewID = __UI_NewControl(__UI_Type_MenuBar, "FileMenu", 44, 18, 8, 0, 0)
     __UI_SetCaption "FileMenu", "&File"
 
-    __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "FileMenuLoad", 140, 18, 0, 4, __UI_GetID("FileMenu"))
-    __UI_SetCaption "FileMenuLoad", "&Load form.frmbin"
-    __UI_Controls(__UI_NewID).Disabled = __UI_True
+    __UI_NewID = __UI_NewControl(__UI_Type_MenuBar, "ViewMenu", 44, 18, 52, 0, 0)
+    __UI_SetCaption "ViewMenu", "&View"
+
+    __UI_NewID = __UI_NewControl(__UI_Type_MenuBar, "HelpMenu", 44, 18, 545, 0, 0)
+    __UI_SetCaption "HelpMenu", "&Help"
+    __UI_Controls(__UI_NewID).Align = __UI_Right
+
+    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ToolBox", 62, 376, 30, 40, 0)
+    __UI_Controls(__UI_NewID).HasBorder = __UI_True
+
+    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "PropertiesFrame", 457, 186, 110, 40, 0)
+    __UI_SetCaption "PropertiesFrame", "Control properties: Main form"
+    __UI_Controls(__UI_NewID).HasBorder = __UI_True
+
+    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ColorMixer", 457, 175, 110, 240, 0)
+    __UI_SetCaption "ColorMixer", "Color mixer"
+    __UI_Controls(__UI_NewID).HasBorder = __UI_True
 
     __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "FileMenuSave", 91, 18, 0, 22, __UI_GetID("FileMenu"))
     __UI_SetCaption "FileMenuSave", "&Save form-"
-    __UI_Controls(__UI_NewID).Disabled = __UI_True
-
+    __UI_LoadImage __UI_Controls(__UI_NewID), "InForm\disk.png"
+    
     __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "FileMenuExit", 56, 18, 0, 40, __UI_GetID("FileMenu"))
     __UI_SetCaption "FileMenuExit", "E&xit"
 
-    __UI_NewID = __UI_NewControl(__UI_Type_MenuBar, "ViewMenu", 56, 18, 14, 0, 0)
-    __UI_SetCaption "ViewMenu", "&View"
+    __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "ViewMenuPreviewDetach", 56, 18, 0, 40, __UI_GetID("ViewMenu"))
+    __UI_SetCaption "ViewMenuPreviewDetach", "&Keep preview window attached"
+    __UI_Controls(__UI_NewID).Value = -1
 
     __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "ViewMenuPreview", 56, 18, 0, 40, __UI_GetID("ViewMenu"))
-    __UI_SetCaption "ViewMenuPreview", "Open &preview window"
+    __UI_SetCaption "ViewMenuPreview", "&Open preview window-"
 
-    $IF WIN THEN
-        __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "ViewMenuPreviewDetach", 56, 18, 0, 40, __UI_GetID("ViewMenu"))
-        __UI_Controls(__UI_NewID).Value = __UI_True
-        __UI_SetCaption "ViewMenuPreviewDetach", "&Keep preview window attached"
-    $END IF
-
-    __UI_NewID = __UI_NewControl(__UI_Type_MenuBar, "HelpMenu", 56, 18, 527, 0, 0)
-    __UI_SetCaption "HelpMenu", "&Help"
-    __UI_Controls(__UI_NewID).Align = __UI_Right
+    __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "ViewMenuLoadedFonts", 56, 18, 0, 40, __UI_GetID("ViewMenu"))
+    __UI_SetCaption "ViewMenuLoadedFonts", "&Loaded fonts"
 
     __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "HelpMenuHelp", 0, 0, 0, 0, __UI_GetID("HelpMenu"))
     __UI_SetCaption "HelpMenuHelp", "&What's all this?"
@@ -44,46 +53,39 @@ SUB __UI_LoadForm
     __UI_NewID = __UI_NewControl(__UI_Type_MenuItem, "HelpMenuAbout", 0, 0, 0, 0, __UI_GetID("HelpMenu"))
     __UI_SetCaption "HelpMenuAbout", "&About..."
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ToolBox", 62, 376, 30, 40, 0)
-    __UI_Controls(__UI_NewID).HasBorder = __UI_True
-
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddButton", 22, 22, 20, 20, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddButton", 22, 22, 20, 26, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddLabel", 22, 22, 20, 50, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddLabel", 22, 22, 20, 56, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddTextBox", 22, 22, 20, 80, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddTextBox", 22, 22, 20, 86, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddCheckBox", 22, 22, 20, 110, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddCheckBox", 22, 22, 20, 116, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddRadioButton", 22, 22, 20, 140, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddRadioButton", 22, 22, 20, 146, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddListBox", 22, 22, 20, 170, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddListBox", 22, 22, 20, 176, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddDropdownList", 22, 22, 20, 200, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddDropdownList", 22, 22, 20, 206, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddTrackBar", 22, 22, 20, 230, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddTrackBar", 22, 22, 20, 236, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddProgressBar", 22, 22, 20, 260, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddProgressBar", 22, 22, 20, 266, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddPictureBox", 22, 22, 20, 290, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddPictureBox", 22, 22, 20, 296, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddFrame", 22, 22, 20, 320, __UI_GetID("ToolBox"))
+    __UI_NewID = __UI_NewControl(__UI_Type_Button, "AddFrame", 22, 22, 20, 326, __UI_GetID("ToolBox"))
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "PropertiesFrame", 457, 186, 110, 40, 0)
-    __UI_SetCaption "PropertiesFrame", "Control properties: Form1"
-    __UI_Controls(__UI_NewID).HasBorder = __UI_True
-
     __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "PropertiesList", 174, 23, 20, 20, __UI_GetID("PropertiesFrame"))
     __UI_AddListBoxItem "PropertiesList", "Name"
     __UI_AddListBoxItem "PropertiesList", "Caption"
@@ -93,71 +95,80 @@ SUB __UI_LoadForm
     __UI_AddListBoxItem "PropertiesList", "Width"
     __UI_AddListBoxItem "PropertiesList", "Height"
     __UI_AddListBoxItem "PropertiesList", "Font"
-    __UI_AddListBoxItem "PropertiesList", "BackStyle"
+    __UI_AddListBoxItem "PropertiesList", "Tool tip"
     __UI_AddListBoxItem "PropertiesList", "Value"
     __UI_AddListBoxItem "PropertiesList", "Min"
     __UI_AddListBoxItem "PropertiesList", "Max"
     __UI_AddListBoxItem "PropertiesList", "Interval"
     __UI_Controls(__UI_NewID).HasBorder = __UI_True
     __UI_Controls(__UI_NewID).Value = 1
+    __UI_Controls(__UI_NewID).Max = 13
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
     __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "PropertyValue", 250, 23, 200, 20, __UI_GetID("PropertiesFrame"))
     __UI_Controls(__UI_NewID).HasBorder = __UI_True
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "Stretch", 150, 17, 70, 59, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "Stretch", 150, 17, 22, 59, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "Stretch", "Stretch"
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "HasBorder", 150, 17, 70, 79, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "HasBorder", 150, 17, 22, 79, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "HasBorder", "Has border"
-    __UI_Controls(__UI_NewID).Value = -1
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "ShowPercentage", 149, 17, 70, 99, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "ShowPercentage", 149, 17, 22, 99, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "ShowPercentage", "Show percentage"
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "WordWrap", 150, 17, 70, 119, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "WordWrap", 150, 17, 22, 119, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "WordWrap", "Word wrap"
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "CanHaveFocus", 150, 17, 230, 59, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "CanHaveFocus", 150, 17, 182, 59, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "CanHaveFocus", "Can have focus"
-    __UI_Controls(__UI_NewID).Value = -1
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "Disabled", 150, 17, 230, 79, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "Disabled", 150, 17, 182, 79, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "Disabled", "Disabled"
-    __UI_Controls(__UI_NewID).Value = -1
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "Hidden", 150, 17, 230, 99, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "Hidden", 150, 17, 182, 99, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "Hidden", "Hidden"
-    __UI_Controls(__UI_NewID).Value = -1
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "CenteredWindow", 150, 17, 230, 119, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "CenteredWindow", 150, 17, 182, 119, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "CenteredWindow", "Centered window"
-    __UI_Controls(__UI_NewID).Value = -1
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label1", 83, 20, 70, 150, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_CheckBox, "Resizable", 102, 17, 339, 59, __UI_GetID("PropertiesFrame"))
+    __UI_SetCaption "Resizable", "Resizable"
+    __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
+    
+    __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label1", 83, 20, 24, 151, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "Label1", "Text align:"
 
-    __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "AlignOptions", 155, 20, 160, 150, __UI_GetID("PropertiesFrame"))
+    __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "AlignOptions", 104, 20, 109, 151, __UI_GetID("PropertiesFrame"))
     __UI_SetCaption "AlignOptions", "Left"
     __UI_AddListBoxItem "AlignOptions", "Left"
     __UI_AddListBoxItem "AlignOptions", "Center"
     __UI_AddListBoxItem "AlignOptions", "Right"
     __UI_Controls(__UI_NewID).HasBorder = __UI_True
     __UI_Controls(__UI_NewID).Value = 1
+    __UI_Controls(__UI_NewID).Max = 3
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
-    __UI_NewID = __UI_NewControl(__UI_Type_Frame, "ColorMixer", 457, 175, 110, 240, 0)
-    __UI_SetCaption "ColorMixer", "Color mixer"
+    __UI_NewID = __UI_NewControl(__UI_Type_Label, "Label2", 83, 20, 225, 151, __UI_GetID("PropertiesFrame"))
+    __UI_SetCaption "Label2", "Back style:"
+
+    __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "BackStyleOptions", 134, 20, 311, 151, __UI_GetID("PropertiesFrame"))
+    __UI_SetCaption "BackStyleOptions", "Left"
+    __UI_AddListBoxItem "BackStyleOptions", "Opaque"
+    __UI_AddListBoxItem "BackStyleOptions", "Transparent"
     __UI_Controls(__UI_NewID).HasBorder = __UI_True
+    __UI_Controls(__UI_NewID).Value = 1
+    __UI_Controls(__UI_NewID).Max = 2
+    __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
     __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "ColorPropertiesList", 161, 21, 10, 20, __UI_GetID("ColorMixer"))
     __UI_AddListBoxItem "ColorPropertiesList", "ForeColor"
@@ -167,6 +178,7 @@ SUB __UI_LoadForm
     __UI_AddListBoxItem "ColorPropertiesList", "BorderColor"
     __UI_Controls(__UI_NewID).HasBorder = __UI_True
     __UI_Controls(__UI_NewID).Value = 1
+    __UI_Controls(__UI_NewID).Max = 5
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
 
     __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "ColorPreview", 159, 115, 10, 51, __UI_GetID("ColorMixer"))
@@ -201,4 +213,5 @@ SUB __UI_LoadForm
     __UI_Controls(__UI_NewID).BorderColor = _RGB32(0, 0, 255)
     __UI_Controls(__UI_NewID).HasBorder = __UI_True
     __UI_Controls(__UI_NewID).CanHaveFocus = __UI_True
+
 END SUB
diff --git a/UiEditorPreview.bas b/UiEditorPreview.bas
index 56350a8..d425476 100644
--- a/UiEditorPreview.bas
+++ b/UiEditorPreview.bas
@@ -41,12 +41,6 @@ SUB __UI_Click (id AS LONG)
     SendData b$, OffsetNewDataFromPreview
 END SUB
 
-SUB __UI_EndDrag
-END SUB
-
-SUB __UI_EndResize
-END SUB
-
 SUB __UI_MouseEnter (id AS LONG)
     DIM b$
     b$ = MKI$(-1)
@@ -84,11 +78,6 @@ SUB __UI_BeforeUpdateDisplay
     b$ = MKL$(UiPreviewPID)
     SendData b$, OffsetPreviewPID
 
-    IF __UI_ControlOperation THEN
-        __UI_ControlOperation = __UI_False
-        b$ = MKI$(-1): SendData b$, OffsetNewDataFromPreview
-    END IF
-
     UiEditorFile = FREEFILE
     OPEN "UiEditor.dat" FOR BINARY AS #UiEditorFile
 
@@ -150,7 +139,7 @@ SUB __UI_BeforeUpdateDisplay
                     __UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
                 CASE __UI_Type_TextBox
                     TempValue = __UI_NewControl(__UI_Type_TextBox, "", 120, 23, TempWidth \ 2 - 60, TempHeight \ 2 - 12, ThisContainer)
-                    IF _FONTWIDTH(__UI_Controls(TempValue).Font) = 0 THEN __UI_Controls(TempValue).Font = __UI_Font("VGA Emulated", "", 16, "")
+                    IF _FONTWIDTH(__UI_Controls(TempValue).Font) = 0 THEN __UI_Controls(TempValue).Font = __UI_Font("", 16, "")
                     __UI_Controls(TempValue).FieldArea = __UI_Controls(TempValue).Width \ _FONTWIDTH(__UI_Controls(TempValue).Font) - 1
                     __UI_SetCaption __UI_Controls(TempValue).Name, RTRIM$(__UI_Controls(TempValue).Name)
                 CASE __UI_Type_ListBox
@@ -162,7 +151,7 @@ SUB __UI_BeforeUpdateDisplay
                     TempValue = __UI_NewControl(__UI_Type_TrackBar, "", 300, 45, TempWidth \ 2 - 150, TempHeight \ 2 - 23, ThisContainer)
                 CASE __UI_Type_ProgressBar
                     TempValue = __UI_NewControl(__UI_Type_ProgressBar, "", 300, 23, TempWidth \ 2 - 150, TempHeight \ 2 - 12, ThisContainer)
-                CASE __UI_Type_PictureBox, __UI_Type_Frame
+                CASE __UI_Type_PictureBox
                     TempValue = __UI_NewControl(TempValue, "", 230, 150, TempWidth \ 2 - 115, TempHeight \ 2 - 75, ThisContainer)
                 CASE __UI_Type_Frame
                     TempValue = __UI_NewControl(TempValue, "", 230, 150, TempWidth \ 2 - 115, TempHeight \ 2 - 75, 0)
@@ -187,10 +176,18 @@ SUB __UI_BeforeUpdateDisplay
             TempValue = CVI(b$)
             SELECT CASE TempValue
                 CASE 1 'Name
+                    b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
+                    b$ = SPACE$(CVL(b$)): GET #UiEditorFile, , b$
+                    IF __UI_GetID(b$) > 0 THEN
+                        DO
+                            b$ = b$ + "_"
+                            IF __UI_GetID(b$) = 0 THEN EXIT DO
+                        LOOP
+                    END IF
                     IF __UI_TotalSelectedControls = 1 THEN
-                        b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
-                        b$ = SPACE$(CVL(b$)): GET #UiEditorFile, , b$
                         __UI_Controls(__UI_FirstSelectedID).Name = b$
+                    ELSE
+                        __UI_Controls(__UI_FormID).Name = b$
                     END IF
                 CASE 2 'Caption
                     b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
@@ -198,7 +195,7 @@ SUB __UI_BeforeUpdateDisplay
                     IF __UI_TotalSelectedControls > 0 THEN
                         FOR i = 1 TO UBOUND(__UI_Controls)
                             IF __UI_Controls(i).ControlIsSelected THEN
-                                __UI_Captions(i) = b$
+                                __UI_SetCaption RTRIM$(__UI_Controls(i).Name), b$
                             END IF
                         NEXT
                     ELSE
@@ -210,6 +207,9 @@ SUB __UI_BeforeUpdateDisplay
                     FOR i = 1 TO UBOUND(__UI_Controls)
                         IF __UI_Controls(i).ControlIsSelected THEN
                             __UI_Texts(i) = b$
+                            IF __UI_Controls(i).Type = __UI_Type_Button OR __UI_Controls(i).Type = __UI_Type_PictureBox THEN
+                                __UI_LoadImage __UI_Controls(i), b$
+                            END IF
                         END IF
                     NEXT
                 CASE 4 'Top
@@ -257,7 +257,44 @@ SUB __UI_BeforeUpdateDisplay
                         __UI_Controls(__UI_FormID).Height = TempValue
                     END IF
                 CASE 8 'Font
-                CASE 9 'BackStyle
+                    b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
+                    b$ = SPACE$(CVL(b$)): GET #UiEditorFile, , b$
+                    DIM NewFontFile AS STRING
+                    DIM NewFontSize AS INTEGER, NewFontParameters AS STRING
+                    DIM FindSep AS INTEGER, TotalSep AS INTEGER
+
+                    'Parse b$ into Font data
+                    FindSep = INSTR(b$, "*")
+                    IF FindSep THEN TotalSep = TotalSep + 1
+                    NewFontFile = LEFT$(b$, FindSep - 1)
+                    b$ = MID$(b$, FindSep + 1)
+
+                    FindSep = INSTR(b$, "*")
+                    IF FindSep THEN TotalSep = TotalSep + 1
+                    NewFontParameters = LEFT$(b$, FindSep - 1)
+                    b$ = MID$(b$, FindSep + 1)
+
+                    NewFontSize = VAL(b$)
+
+                    IF TotalSep = 2 AND NewFontSize > 0 THEN
+                        IF __UI_TotalSelectedControls > 0 THEN
+                            FOR i = 1 TO UBOUND(__UI_Controls)
+                                IF __UI_Controls(i).ControlIsSelected THEN
+                                    __UI_Controls(i).Font = __UI_Font(NewFontFile, NewFontSize, NewFontParameters)
+                                END IF
+                            NEXT
+                        ELSE
+                            __UI_Controls(__UI_FormID).Font = __UI_Font(NewFontFile, NewFontSize, NewFontParameters)
+                        END IF
+                    END IF
+                CASE 9 'Tooltip
+                    b$ = SPACE$(4): GET #UiEditorFile, OffsetPropertyValue, b$
+                    b$ = SPACE$(CVL(b$)): GET #UiEditorFile, , b$
+                    FOR i = 1 TO UBOUND(__UI_Controls)
+                        IF __UI_Controls(i).ControlIsSelected THEN
+                            __UI_Tips(i) = b$
+                        END IF
+                    NEXT
                 CASE 10 'Value
                     b$ = SPACE$(LEN(FloatValue)): GET #UiEditorFile, OffsetPropertyValue, b$
                     FOR i = 1 TO UBOUND(__UI_Controls)
@@ -337,6 +374,7 @@ SUB __UI_BeforeUpdateDisplay
                     NEXT
                 CASE 21 'CenteredWindow
                     b$ = SPACE$(2): GET #UiEditorFile, OffsetPropertyValue, b$
+                    TempValue = CVI(b$)
                     IF __UI_TotalSelectedControls = 0 THEN
                         __UI_Controls(__UI_FormID).CenteredWindow = TempValue
                     END IF
@@ -402,6 +440,19 @@ SUB __UI_BeforeUpdateDisplay
                     ELSE
                         __UI_Controls(__UI_FormID).BorderColor = _CV(_UNSIGNED LONG, b$)
                     END IF
+                CASE 28 'BackStyle
+                    b$ = SPACE$(2): GET #UiEditorFile, OffsetPropertyValue, b$
+                    FOR i = 1 TO UBOUND(__UI_Controls)
+                        IF __UI_Controls(i).ControlIsSelected THEN
+                            __UI_Controls(i).BackStyle = CVI(b$)
+                        END IF
+                    NEXT
+                CASE 29 'CanResize
+                    b$ = SPACE$(2): GET #UiEditorFile, OffsetPropertyValue, b$
+                    TempValue = CVI(b$)
+                    IF __UI_TotalSelectedControls = 0 THEN
+                        __UI_Controls(__UI_FormID).CanResize = TempValue
+                    END IF
             END SELECT
             __UI_ForceRedraw = __UI_True
         END IF
@@ -473,7 +524,7 @@ SUB LoadPreview
         IF LogFileLoad THEN PRINT #LogFileNum, "DESTROYED CONTROLS"
 
         b$ = SPACE$(4): GET #BinaryFileNum, , b$
-        IF LogFileLoad THEN PRINT #LogFileNum, "READ NEW ARRAYS:" + STR$(CVI(b$))
+        IF LogFileLoad THEN PRINT #LogFileNum, "READ NEW ARRAYS:" + STR$(CVL(b$))
 
         REDIM _PRESERVE __UI_Captions(1 TO CVL(b$)) AS STRING
         REDIM _PRESERVE __UI_TempCaptions(1 TO CVL(b$)) AS STRING
@@ -528,7 +579,7 @@ SUB LoadPreview
                         b$ = SPACE$(4): GET #BinaryFileNum, , b$
                         b$ = SPACE$(CVL(b$))
                         GET #BinaryFileNum, , b$
-                        __UI_Captions(TempValue) = b$
+                        __UI_SetCaption RTRIM$(__UI_Controls(TempValue).Name), b$
                         IF LogFileLoad THEN PRINT #LogFileNum, "CAPTION:" + __UI_Captions(TempValue)
                     CASE -3 'Text
                         b$ = SPACE$(4): GET #BinaryFileNum, , b$
@@ -551,18 +602,15 @@ SUB LoadPreview
                         FontSetup$ = SPACE$(CVI(b$)): GET #BinaryFileNum, , FontSetup$
                         IF LogFileLoad THEN PRINT #LogFileNum, FontSetup$
 
-                        FindSep = INSTR(FontSetup$, "\")
-                        NewFontName = LEFT$(FontSetup$, FindSep - 1): FontSetup$ = MID$(FontSetup$, FindSep + 1)
-
-                        FindSep = INSTR(FontSetup$, "\")
+                        FindSep = INSTR(FontSetup$, "*")
                         NewFontFile = LEFT$(FontSetup$, FindSep - 1): FontSetup$ = MID$(FontSetup$, FindSep + 1)
 
-                        FindSep = INSTR(FontSetup$, "\")
-                        NewFontSize = VAL(LEFT$(FontSetup$, FindSep - 1)): FontSetup$ = MID$(FontSetup$, FindSep + 1)
+                        FindSep = INSTR(FontSetup$, "*")
+                        NewFontAttributes = LEFT$(FontSetup$, FindSep - 1): FontSetup$ = MID$(FontSetup$, FindSep + 1)
 
-                        NewFontAttributes = FontSetup$
+                        NewFontSize = VAL(FontSetup$)
 
-                        __UI_Controls(TempValue).Font = __UI_Font(NewFontName, NewFontFile, NewFontSize, NewFontAttributes)
+                        __UI_Controls(TempValue).Font = __UI_Font(NewFontFile, NewFontSize, NewFontAttributes)
                     CASE -6 'ForeColor
                         b$ = SPACE$(4): GET #BinaryFileNum, , b$
                         __UI_Controls(TempValue).ForeColor = _CV(_UNSIGNED LONG, b$)
@@ -707,13 +755,23 @@ SUB SavePreview
             b$ = MKI$(-1) + MKL$(i) + MKI$(__UI_Controls(i).Type) '-1 indicates a new control
             b$ = b$ + MKI$(LEN(RTRIM$(__UI_Controls(i).Name)))
             b$ = b$ + RTRIM$(__UI_Controls(i).Name)
-            b$ = b$ + MKI$(__UI_Controls(i).Width) + MKI$(__UI_Controls(i).Height) + MKI$(__UI_Controls(i).Left) + MKI$(__UI_Controls(i).Top) + MKI$(LEN(RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name))) + RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name)
+            b$ = b$ + MKI$(__UI_Controls(i).Width) + MKI$(__UI_Controls(i).Height) + MKI$(__UI_Controls(i).Left) + MKI$(__UI_Controls(i).Top)
+            IF __UI_Controls(i).ParentID > 0 THEN
+                b$ = b$ + MKI$(LEN(RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name))) + RTRIM$(__UI_Controls(__UI_Controls(i).ParentID).Name)
+            ELSE
+                b$ = b$ + MKI$(0)
+            END IF
             PUT #BinFileNum, , b$
 
             IF LEN(__UI_Captions(i)) > 0 THEN
-                b$ = MKI$(-2) + MKL$(LEN(__UI_Captions(i))) '-2 indicates a caption
+                IF __UI_Controls(i).HotKeyPosition > 0 THEN
+                    a$ = LEFT$(__UI_Captions(i), __UI_Controls(i).HotKeyPosition - 1) + "&" + MID$(__UI_Captions(i), __UI_Controls(i).HotKeyPosition)
+                ELSE
+                    a$ = __UI_Captions(i)
+                END IF
+                b$ = MKI$(-2) + MKL$(LEN(a$)) '-2 indicates a caption
                 PUT #BinFileNum, , b$
-                PUT #BinFileNum, , __UI_Captions(i)
+                PUT #BinFileNum, , a$
             END IF
 
             IF LEN(__UI_Tips(i)) > 0 THEN
@@ -740,12 +798,12 @@ SUB SavePreview
                 IF __UI_Controls(i).Font = 8 OR __UI_Controls(i).Font = 16 THEN
                     'Internal fonts
                     SaveInternalFont:
-                    FontSetup$ = "VGA Emulated\\" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max)) + "\"
+                    FontSetup$ = "**" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max))
                     b$ = MKI$(-5) + MKI$(LEN(FontSetup$)) + FontSetup$
                     PUT #BinFileNum, , b$
                 ELSE
                     SaveExternalFont:
-                    FontSetup$ = RTRIM$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Name) + "\" + __UI_Texts(__UI_GetFontID(__UI_Controls(i).Font)) + "\" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max)) + "\" + __UI_Captions(__UI_GetFontID(__UI_Controls(i).Font))
+                    FontSetup$ = __UI_Texts(__UI_GetFontID(__UI_Controls(i).Font)) + "*" + __UI_Captions(__UI_GetFontID(__UI_Controls(i).Font)) + "*" + LTRIM$(STR$(__UI_Controls(__UI_GetFontID(__UI_Controls(i).Font)).Max))
                     b$ = MKI$(-5) + MKI$(LEN(FontSetup$)) + FontSetup$
                     PUT #BinFileNum, , b$
                 END IF
@@ -809,12 +867,12 @@ SUB SavePreview
             IF __UI_Controls(i).Max <> 0 THEN
                 b$ = MKI$(-16) + _MK$(_FLOAT, __UI_Controls(i).Max): PUT #BinFileNum, , b$
             END IF
-            IF __UI_Controls(i).HotKey <> 0 THEN
-                b$ = MKI$(-17) + MKI$(__UI_Controls(i).HotKey): PUT #BinFileNum, , b$
-            END IF
-            IF __UI_Controls(i).HotKeyOffset <> 0 THEN
-                b$ = MKI$(-18) + MKI$(__UI_Controls(i).HotKeyOffset): PUT #BinFileNum, , b$
-            END IF
+            'IF __UI_Controls(i).HotKey <> 0 THEN
+            '    b$ = MKI$(-17) + MKI$(__UI_Controls(i).HotKey): PUT #BinFileNum, , b$
+            'END IF
+            'IF __UI_Controls(i).HotKeyOffset <> 0 THEN
+            '    b$ = MKI$(-18) + MKI$(__UI_Controls(i).HotKeyOffset): PUT #BinFileNum, , b$
+            'END IF
             IF __UI_Controls(i).ShowPercentage THEN
                 b$ = MKI$(-19): PUT #BinFileNum, , b$
             END IF
@@ -842,6 +900,9 @@ SUB SavePreview
             IF __UI_Controls(i).CanResize AND __UI_Controls(i).Type = __UI_Type_Form THEN
                 b$ = MKI$(-29): PUT #BinFileNum, , b$
             END IF
+            IF __UI_Controls(i).HotKey > 0 THEN
+                b$ = MKI$(-30) + MKI$(__UI_Controls(i).HotKeyPosition): PUT #BinFileNum, , b$
+            END IF
         END IF
     NEXT
     b$ = MKI$(-1024): PUT #BinFileNum, , b$ 'end of file
diff --git a/xp.uitheme b/xp.uitheme
index e6a160e..e2120d0 100644
--- a/xp.uitheme
+++ b/xp.uitheme
@@ -9,6 +9,8 @@ SUB __UI_ThemeSetup
     'Metrics
     __UI_ScrollbarWidth = 17
     __UI_ScrollbarButtonHeight = 17
+    __UI_MenuBarOffset = 8
+    __UI_MenuItemOffset = 22
 END SUB
 
 '---------------------------------------------------------------------------------
@@ -91,7 +93,7 @@ SUB __UI_DrawButton (This AS __UI_ControlTYPE, ControlState AS _BYTE)
 
         'Does this button have a helper canvas (icon)?
         DIM IconRatio AS INTEGER, IconWidth AS INTEGER, IconHeight AS INTEGER
-        IF This.HelperCanvas < -1 THEN
+        IF This.HelperCanvas < -1 AND LEN(__UI_Texts(This.ID)) > 0 THEN
             IF LEN(TempCaption$) THEN
                 'Icon will be to the left of caption
                 IconHeight = This.Height - 6
@@ -131,7 +133,7 @@ SUB __UI_DrawButton (This AS __UI_ControlTYPE, ControlState AS _BYTE)
         _PRINTSTRING ((IconWidth / 2) + (This.Width \ 2 - _PRINTWIDTH(TempCaption$) \ 2), ((This.Height \ 2) - _FONTHEIGHT \ 2) + 2), TempCaption$
 
         'Hot key:
-        IF This.HotKey > 0 AND __UI_ShowHotKeys AND NOT This.Disabled THEN
+        IF This.HotKey > 0 AND ((__UI_ShowHotKeys AND NOT This.Disabled) OR __UI_DesignMode) THEN
             LINE ((This.Width \ 2 - _PRINTWIDTH(TempCaption$) \ 2) + This.HotKeyOffset, ((This.Height \ 2) + _FONTHEIGHT \ 2) + 1)-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), This.ForeColor
         END IF
 
@@ -222,7 +224,7 @@ SUB __UI_DrawLabel (This AS __UI_ControlTYPE, ControlState AS _BYTE)
             LOOP
 
             'Hot key:
-            IF This.HotKey > 0 AND __UI_ShowHotKeys AND NOT This.Disabled THEN
+            IF This.HotKey > 0 AND ((__UI_ShowHotKeys AND NOT This.Disabled) OR __UI_DesignMode) THEN
                 LINE (CaptionLeftFirstLine + This.HotKeyOffset, CaptionIndent + _FONTHEIGHT + 2)-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), This.ForeColor
             END IF
         ELSE
@@ -240,7 +242,7 @@ SUB __UI_DrawLabel (This AS __UI_ControlTYPE, ControlState AS _BYTE)
             _PRINTSTRING (CaptionLeft, ((This.Height \ 2) - _FONTHEIGHT \ 2)), TempCaption$
 
             'Hot key:
-            IF This.HotKey > 0 AND __UI_ShowHotKeys AND NOT This.Disabled THEN
+            IF This.HotKey > 0 AND ((__UI_ShowHotKeys AND NOT This.Disabled) OR __UI_DesignMode) THEN
                 LINE (CaptionLeftFirstLine + This.HotKeyOffset, ((This.Height \ 2) + (_FONTHEIGHT \ 2)))-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), This.ForeColor
             END IF
         END IF
@@ -319,7 +321,7 @@ SUB __UI_DrawRadioButton (This AS __UI_ControlTYPE, ControlState AS _BYTE)
         _PRINTSTRING (CaptionIndent, ((This.Height \ 2) - _FONTHEIGHT \ 2) + 1), TempCaption$
 
         'Hot key:
-        IF This.HotKey > 0 AND __UI_ShowHotKeys AND NOT This.Disabled THEN
+        IF This.HotKey > 0 AND ((__UI_ShowHotKeys AND NOT This.Disabled) OR __UI_DesignMode) THEN
             LINE (CaptionIndent + This.HotKeyOffset, ((This.Height \ 2) + _FONTHEIGHT \ 2))-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), This.ForeColor
         END IF
 
@@ -397,7 +399,7 @@ SUB __UI_DrawCheckBox (This AS __UI_ControlTYPE, ControlState AS _BYTE)
         _PRINTSTRING (CaptionIndent, ((This.Height \ 2) - _FONTHEIGHT \ 2) + 1), TempCaption$
 
         'Hot key:
-        IF This.HotKey > 0 AND __UI_ShowHotKeys AND NOT This.Disabled THEN
+        IF This.HotKey > 0 AND ((__UI_ShowHotKeys AND NOT This.Disabled) OR __UI_DesignMode) THEN
             LINE (CaptionIndent + This.HotKeyOffset, ((This.Height \ 2) + _FONTHEIGHT \ 2))-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), This.ForeColor
         END IF
 
@@ -591,9 +593,11 @@ SUB __UI_DrawTextBox (This AS __UI_ControlTYPE, ControlState, ss1 AS LONG, ss2 A
     IF This.Type = __UI_Type_TextBox THEN
         'Make sure textboxes have fixed width fonts and a proper FieldArea property
         IF _FONTWIDTH((This.Font)) = 0 THEN
-            This.Font = __UI_Font(RTRIM$(__UI_Controls(__UI_GetFontID(This.Font)).Name), __UI_Texts(__UI_GetFontID(This.Font)), __UI_Controls(__UI_GetFontID(This.Font)).Max, "monospace")
+            This.Font = __UI_Font(__UI_Texts(__UI_GetFontID(This.Font)), __UI_Controls(__UI_GetFontID(This.Font)).Max, "monospace")
         END IF
-        This.FieldArea = This.Width \ _FONTWIDTH((This.Font)) - 1
+        This.FieldArea = This.Width / _FONTWIDTH((This.Font)) - 1
+    ELSE
+        EXIT SUB
     END IF
 
     IF This.ControlState <> ControlState OR _
@@ -1109,7 +1113,7 @@ SUB __UI_DrawFrame (This AS __UI_ControlTYPE)
                 _PRINTSTRING (CaptionLeft, 0), TempCaption$
 
                 'Hot key:
-                IF This.HotKey > 0 AND __UI_ShowHotKeys AND NOT This.Disabled THEN
+                IF This.HotKey > 0 AND ((__UI_ShowHotKeys AND NOT This.Disabled) OR __UI_DesignMode) THEN
                     LINE (CaptionLeft + _PRINTWIDTH(" ") + This.HotKeyOffset, 0 + _FONTHEIGHT)-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), This.ForeColor
                 END IF
             END IF
@@ -1152,9 +1156,6 @@ SUB __UI_DrawMenuBar (This AS __UI_ControlTYPE, ControlState AS _BYTE)
         _FONT (This.Font)
 
         '---
-        DIM ItemOffset%
-        IF _PRINTWIDTH("W") <> _PRINTWIDTH("I") THEN ItemOffset% = _PRINTWIDTH("__") ELSE ItemOffset% = _PRINTWIDTH("__")
-
         CLS , This.BackColor
         _PRINTMODE _KEEPBACKGROUND
 
@@ -1176,10 +1177,10 @@ SUB __UI_DrawMenuBar (This AS __UI_ControlTYPE, ControlState AS _BYTE)
 
         COLOR c
 
-        _PRINTSTRING (ItemOffset%, ((This.Height \ 2) - _FONTHEIGHT \ 2)), TempCaption$
-        IF This.HotKey > 0 AND (__UI_AltIsDown OR __UI_Controls(__UI_Focus).Type = __UI_Type_MenuBar) THEN
+        _PRINTSTRING (__UI_MenuBarOffset, ((This.Height \ 2) - _FONTHEIGHT \ 2)), TempCaption$
+        IF This.HotKey > 0 AND ((__UI_AltIsDown OR __UI_Controls(__UI_Focus).Type = __UI_Type_MenuBar) OR __UI_DesignMode) THEN
             'Has "hot-key"
-            LINE (ItemOffset% + This.HotKeyOffset, ((This.Height \ 2) + _FONTHEIGHT \ 2) - 1)-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), c
+            LINE (__UI_MenuBarOffset + This.HotKeyOffset, ((This.Height \ 2) + _FONTHEIGHT \ 2) - 1)-STEP(_PRINTWIDTH(CHR$(This.HotKey)) - 1, 0), c
         END IF
         '---
 
@@ -1220,9 +1221,6 @@ SUB __UI_DrawMenuPanel (This AS __UI_ControlTYPE, ControlState AS _BYTE)
         _FONT (This.Font)
 
         '---
-        DIM ItemOffset AS INTEGER
-        IF _PRINTWIDTH("W") <> _PRINTWIDTH("I") THEN ItemOffset = _PRINTWIDTH("____") ELSE ItemOffset = _PRINTWIDTH("__")
-
         COLOR , _RGBA32(0, 0, 0, 0)
         CLS
         _PRINTMODE _KEEPBACKGROUND
@@ -1259,16 +1257,25 @@ SUB __UI_DrawMenuPanel (This AS __UI_ControlTYPE, ControlState AS _BYTE)
 
                 COLOR c
 
-                _PRINTSTRING (__UI_Controls(i).Left + ItemOffset, __UI_Controls(i).Top + __UI_Controls(i).Height \ 2 - _FONTHEIGHT \ 2), TempCaption$
+                _PRINTSTRING (__UI_Controls(i).Left + __UI_MenuItemOffset, __UI_Controls(i).Top + __UI_Controls(i).Height \ 2 - _FONTHEIGHT \ 2), TempCaption$
 
                 IF __UI_Controls(i).HotKey > 0 THEN
                     'Has "hot-key"
-                    LINE (__UI_Controls(i).Left + ItemOffset + __UI_Controls(i).HotKeyOffset, __UI_Controls(i).Top + __UI_Controls(i).Height \ 2 + _FONTHEIGHT \ 2 - 1)-STEP(_PRINTWIDTH(CHR$(__UI_Controls(i).HotKey)) - 1, 0), c
+                    LINE (__UI_Controls(i).Left + __UI_MenuItemOffset + __UI_Controls(i).HotKeyOffset, __UI_Controls(i).Top + __UI_Controls(i).Height \ 2 + _FONTHEIGHT \ 2 - 1)-STEP(_PRINTWIDTH(CHR$(__UI_Controls(i).HotKey)) - 1, 0), c
                 END IF
 
                 IF __UI_Controls(i).Value = __UI_True THEN
                     'Checked menu item
-                    _PUTIMAGE (ItemOffset \ 2 - CheckMarkWidth \ 2, __UI_Controls(i).Top + __UI_Controls(i).Height \ 2 - CheckMarkHeight \ 2), ControlImage, , (0, CheckMarkIndex * CheckMarkHeight - CheckMarkHeight)-STEP(6, 6)
+                    _PUTIMAGE (__UI_MenuItemOffset \ 2 - CheckMarkWidth \ 2, __UI_Controls(i).Top + __UI_Controls(i).Height \ 2 - CheckMarkHeight \ 2), ControlImage, , (0, CheckMarkIndex * CheckMarkHeight - CheckMarkHeight)-STEP(6, 6)
+                ELSE
+                    'Does this menu item have a helper canvas (icon)?
+                    DIM IconRatio AS INTEGER, IconWidth AS INTEGER, IconHeight AS INTEGER
+                    IF __UI_Controls(i).HelperCanvas < -1 AND LEN(__UI_Texts(__UI_Controls(i).ID)) > 0 THEN
+                        'Icon will be to the left of caption
+                        IconHeight = 16
+                        IconWidth = _WIDTH(__UI_Controls(i).HelperCanvas) * IconHeight / _HEIGHT(__UI_Controls(i).HelperCanvas)
+                        _PUTIMAGE (3, __UI_Controls(i).Top + __UI_Controls(i).Height / 2 - IconHeight / 2)-STEP(IconWidth - 1, IconHeight - 1), __UI_Controls(i).HelperCanvas
+                    END IF
                 END IF
 
                 IF HasSeparator THEN