... 
   _METHOD Set( xKey, xVal ) 
    METHOD Get( KEY, Def )   INLINE iif( KEY == NIL, ::aKey, hb_HGetDef( ::aKey, ::Upp( Key ), Def ) ) 
    METHOD Del( Key )  INLINE ( iif( ::Pos( Key ) > 0, hb_HDel( ::aKey, ::Upp( Key ) ), Nil ), Self ) 
    METHOD Pos( Key )  INLINE hb_HPos( ::aKey, ::Upp( Key ) ) 
    METHOD Upp( Key )  INLINE iif( HB_ISCHAR( Key ) .AND. ::lUpp, Upper( Key ), Key ) 
    METHOD Len()       INLINE Len( ::aKey ) 
  
    METHOD Keys()      INLINE hb_HKeys( ::aKey ) 
    METHOD Values()    INLINE hb_HValues( ::aKey ) 
    METHOD CloneHash() INLINE hb_HClone( ::aKey ) 
    METHOD Json( cJ, lJ ) INLINE iif( HB_ISCHAR(cJ), ( cJ := SubS( cJ, At ("{", cJ) ), ; 
                                                       cJ := Left( cJ, RAt("}", cJ) ), ; 
                                                       ::Set(hb_jsonDecode( cJ ), ! Empty(lJ)) ), ; 
                                                       hb_jsonEncode( ::aKey, ! Empty(lJ) ) ) 
    _METHOD GetAll( lAll ) 
    _METHOD Eval( Block ) 
  
    ERROR HANDLER ControlAssign 
  
 ENDCLASS 
 *-----------------------------------------------------------------------------* 
  
 METHOD Set( xKey, xVal ) CLASS THmgData 
    LOCAL k, v 
  
    IF pCount() > 0 
       IF HB_ISHASH( xKey ) 
          IF HB_ISLOGICAL(xVal) .and. xVal 
             FOR EACH k, v IN hb_HKeys( xKey ), hb_HValues( xKey ) 
                 hb_HSet ( ::aKey, ::Upp( k ), v ) 
             NEXT 
          ELSE 
             ::aKey := xKey 
          ENDIF 
       ELSE 
          hb_HSet ( ::aKey, ::Upp( xKey ), xVal ) 
       ENDIF 
    ENDIF 
  
 RETURN Self 
 ... 
 

#include <hmg.ch> 
 Declare window form1 
 Declare window form2 
 Declare window form3 
  
 Function Main() 
     DEFINE WINDOW MAIN AT 218, 380 WIDTH 237 HEIGHT 286  TITLE "" MAIN 
         DEFINE BUTTON oButton1 
             ACTION (formOff(),FormON(1)) 
             CAPTION "Form1" 
             TRANSPARENT .T. 
             COL 53 
             HEIGHT 26 
             ROW 20 
             WIDTH 96 
         END BUTTON 
  
         DEFINE BUTTON oButton2 
             ACTION (formOff(),FormON(2)) 
             CAPTION "Form2" 
             TRANSPARENT .T. 
             COL 53 
             HEIGHT 26 
             ROW 51 
             WIDTH 96 
         END BUTTON 
  
         DEFINE BUTTON oButton3 
             ACTION (formOff(),FormON(3)) 
             CAPTION "Form3" 
             TRANSPARENT .T. 
             COL 53 
             HEIGHT 26 
             ROW 82 
             WIDTH 96 
         END BUTTON 
  
         DEFINE BUTTON oButton4 
             ACTION MsgDebug( HMG_GetForms( "S" ) ) 
             CAPTION "Form List" 
             TRANSPARENT .T. 
             COL 53 
             HEIGHT 26 
             ROW 130 
             WIDTH 96 
         END BUTTON 
  
         DEFINE BUTTON oButton5 
             ACTION ( SetProperty( "Form1", "Visible", .F. ), ; 
                MsgDebug( GetProperty( HMG_GetForms( "S" )[1], "Visible" ) ) ) 
             CAPTION "Is Form1 visible?" 
             TRANSPARENT .T. 
             COL 53 
             HEIGHT 26 
             ROW 160 
             WIDTH 96 
         END BUTTON 
  
         DEFINE BUTTON oButton6 
             ACTION RenameForms() 
             CAPTION "Rename Forms" 
             TRANSPARENT .T. 
             COL 53 
             HEIGHT 26 
             ROW 186 
             WIDTH 96 
         END BUTTON 
    
     END WINDOW 
  
     CreateForm("Form1") 
     CreateForm("Form2") 
     CreateForm("Form3") 
  
     activate  window  Form1,Form2,Form3,Main 
     REturn .T. 
  
 ********************************************************************************************************************************************** 
 Procedure  CreateForm(cForm) 
     DEFINE WINDOW &(cForm) AT 286, 717 WIDTH 385 HEIGHT 351  TITLE "" //CHILD 
         DEFINE LABEL oLabel1 
             VALUE cForm 
             AUTOSIZE TRUE 
             FONTBOLD TRUE 
             VCENTERALIGN TRUE 
             COL 123 
             FONTSIZE 30.00 
             HEIGHT 46.00 
             ROW 109 
             WIDTH 132 
         END LABEL 
     END WINDOW 
  
 Procedure FormON(nForm) 
 switch nForm 
 case 1 
 Form1.TopMost := .t. ; exit 
 case 2 
 Form2.TopMost := .t. ; exit 
 case 3 
 Form3.TopMost := .t. 
 end 
  
 Procedure FormOff 
 Form1.TopMost := .f. ; Form2.TopMost := .f. ; Form3.TopMost := .f. 
  
 Procedure RenameForms() 
 LOCAL form 
 FOR EACH form IN HMG_GetForms( "S" ) 
   SetProperty(form,"title",form) 
 NEXT

 
 ... 
 #define WM_VSCROLL      0x0115 
 #define SB_LINEUP     0 
 #define SB_LINEDOWN    1 
 ... 
 METHOD Preview() CLASS HBPrinter 
 ... 
    DEFINE WINDOW HBPREVIEW ; 
          AT ahs[ 1, 1 ], ahs[ 1, 2 ] ; 
          WIDTH ahs[ 1, 6 ] HEIGHT ahs[ 1, 5 ] ; 
          TITLE aopisy[ 1 ] ICON 'zzz_Printicon' ; 
          MODAL NOSIZE ; 
          FONT 'Arial' SIZE 9 ; 
          ON INIT ( DoMethod("HBPREVIEW1", "SetFocus") ) 
 ... 
       BUTTON B1 CAPTION aopisy[ 2 ] PICTURE 'hbprint_close' ACTION {|| ::PrevClose( .T. ) } SEPARATOR 
       BUTTON B10 CAPTION aopisy[ 11 ] PICTURE 'hbprint_option' ACTION {|| ::PrintOption() } SEPARATOR 
       BUTTON B8 CAPTION aopisy[ 9 ] PICTURE 'hbprint_zoomin'   ACTION {|| scale := scale * 1.25, ::PrevShow(), DoMethod("HBPREVIEW1", "SetFocus") } 
       BUTTON B9 CAPTION aopisy[ 10 ] PICTURE 'hbprint_zoomout' ACTION {|| scale := scale / 1.25, ::PrevShow(), DoMethod("HBPREVIEW1", "SetFocus") } SEPARATOR 
    IF iloscstron > 1 
       BUTTON B4 CAPTION aopisy[ 5 ] PICTURE 'hbprint_top' ACTION {|| page := ::CurPage := 1, HBPREVIEW.combo_1.VALUE := page, ::PrevShow(), DoMethod("HBPREVIEW1", "SetFocus") } 
       BUTTON B5 CAPTION aopisy[ 6 ] PICTURE 'hbprint_back' ACTION {|| page := ::CurPage := iif( page == 1, 1, page - 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow(), DoMethod("HBPREVIEW1", "SetFocus") } 
       BUTTON B6 CAPTION aopisy[ 7 ] PICTURE 'hbprint_next' ACTION {|| page := ::CurPage := iif( page == iloscstron, page, page + 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow(), DoMethod("HBPREVIEW1", "SetFocus") } 
       BUTTON B7 CAPTION aopisy[ 8 ] PICTURE 'hbprint_end' ACTION {|| page := ::CurPage := iloscstron, HBPREVIEW.combo_1.VALUE := page, ::PrevShow(), DoMethod("HBPREVIEW1", "SetFocus") } SEPARATOR 
    ENDIF 
 ... 
    DEFINE WINDOW HBPREVIEW1 ; 
 ... 
       IF iloscstron > 1 
          _DefineHotKey( "HBPREVIEW1", 0, VK_PRIOR, {|| page := ::CurPage := iif( page == 1, 1, page - 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // back 
          _DefineHotKey( "HBPREVIEW1", 0, VK_NEXT, {|| page := ::CurPage := iif( page == iloscstron, page, page + 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // next[ 
          _DefineHotKey( "HBPREVIEW1", 0, VK_END, {|| page := ::CurPage := iloscstron, HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // end 
          _DefineHotKey( "HBPREVIEW1", 0, VK_HOME, {|| page := ::CurPage := 1, HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // home 
          _DefineHotKey( "HBPREVIEW1", 0, VK_LEFT, {|| page := ::CurPage := iif( page == 1, 1, page - 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // Left 
 //       _DefineHotKey( "HBPREVIEW1", 0, VK_UP, {|| page := ::CurPage := iif( page == 1, 1, page - 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // up 
          _DefineHotKey( "HBPREVIEW1", 0, VK_RIGHT, {|| page := ::CurPage := iif( page == iloscstron, page, page + 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // right 
 //       _DefineHotKey( "HBPREVIEW1", 0, VK_DOWN, {|| page := ::CurPage := iif( page == iloscstron, page, page + 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // down 
       ENDIF 
  
       _DefineHotKey( "HBPREVIEW1", 0, VK_UP    , {|| SendMessage( GetFormHandle("HBPREVIEW1"), WM_VSCROLL, SB_LINEUP  , 0 ) } )  
       _DefineHotKey( "HBPREVIEW1", 0, VK_DOWN  , {|| SendMessage( GetFormHandle("HBPREVIEW1"), WM_VSCROLL, SB_LINEDOWN, 0 ) } )  
       _DefineHotKey( "HBPREVIEW1", 0, VK_INSERT, {|| scale := scale * 1.25, ::PrevShow() } )  
       _DefineHotKey( "HBPREVIEW1", 0, VK_DELETE, {|| scale := scale / 1.25, ::PrevShow() } )  
  
 ... 
 

 
 METHOD Preview() CLASS HBPrinter 
 ... 
 	DEFINE WINDOW HBPREVIEW ; 
 ... 
 	END TOOLBAR 
  
 	_DefineHotKey( "HBPREVIEW", 0, VK_UP	 , {|| SendMessage( GetFormHandle("HBPREVIEW1"), WM_VSCROLL, SB_LINEUP  , 0 ) } ) 
 	_DefineHotKey( "HBPREVIEW", 0, VK_DOWN  , {|| SendMessage( GetFormHandle("HBPREVIEW1"), WM_VSCROLL, SB_LINEDOWN, 0 ) } ) 
 	_DefineHotKey( "HBPREVIEW", 0, VK_INSERT, {|| scale := scale * 1.25, ::PrevShow() } ) 
 	_DefineHotKey( "HBPREVIEW", 0, VK_DELETE, {|| scale := scale / 1.25, ::PrevShow() } ) 
  
 	AAdd( ahs, { 0, 0, 0, 0, 0, 0, GetFormHandle( "hbpreview" ) } ) 
 ... 
 	DEFINE WINDOW HBPREVIEW1 ; 
 			WIDTH ahs[ 2, 6 ] - 15 HEIGHT ahs[ 2, 5 ] - ahs[ 3, 5 ] - ahs[ 4, 5 ] - 10 ; 
 			VIRTUAL WIDTH ahs[ 2, 6 ] - 5 ; 
 			VIRTUAL HEIGHT ahs[ 2, 5 ] - ahs[ 3, 5 ] - ahs[ 4, 5 ] ; 
 			TITLE aopisy[ 13 ] SPLITCHILD GRIPPERTEXT ".." 
  
 		_HMG_aFormClickProcedure [ GetFormIndex("HBPREVIEW1") ] := {|| 
 			  IF	  _HMG_MouseState == 1 // WM_LBUTTONDOWN 
 				  scale := scale * 1.25 
 				  ::PrevShow() 
 			  ELSEIF _HMG_MouseState == 2 // WM_RBUTTONDOWN 
 				  scale := scale / 1.25 
 				  ::PrevShow() 
 			  ELSEIF _HMG_MouseState == 3 // WM_MBUTTONDOWN 
 			  ENDIF 
 			  DoMethod("HBPREVIEW", "SetFocus") 
 			  Return Nil 
 			 } 
  
 		AAdd( ahs, { 0, 0, 0, 0, 0, 0, GetFormHandle( "hbpreview1" ) } ) 
 ... 
 		IF iloscstron > 1 
 			_DefineHotKey( "HBPREVIEW1", 0, VK_PRIOR, {|| page := ::CurPage := iif( page == 1, 1, page - 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // back 
 			_DefineHotKey( "HBPREVIEW1", 0, VK_NEXT, {|| page := ::CurPage := iif( page == iloscstron, page, page + 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // next 
 			_DefineHotKey( "HBPREVIEW1", 0, VK_END, {|| page := ::CurPage := iloscstron, HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // end 
 			_DefineHotKey( "HBPREVIEW1", 0, VK_HOME, {|| page := ::CurPage := 1, HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // home 
 			_DefineHotKey( "HBPREVIEW1", 0, VK_LEFT, {|| page := ::CurPage := iif( page == 1, 1, page - 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // Left 
 //	  _DefineHotKey( "HBPREVIEW1", 0, VK_UP, {|| page := ::CurPage := iif( page == 1, 1, page - 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // up 
 			_DefineHotKey( "HBPREVIEW1", 0, VK_RIGHT, {|| page := ::CurPage := iif( page == iloscstron, page, page + 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // right 
 //	  _DefineHotKey( "HBPREVIEW1", 0, VK_DOWN, {|| page := ::CurPage := iif( page == iloscstron, page, page + 1 ), HBPREVIEW.combo_1.VALUE := page, ::PrevShow() } ) // down 
 		ENDIF 
  
 		_DefineHotKey( "HBPREVIEW1", 0, VK_UP	 , {|| SendMessage( GetFormHandle("HBPREVIEW1"), WM_VSCROLL, SB_LINEUP  , 0 ), DoMethod("HBPREVIEW", "SetFocus") } ) 
 		_DefineHotKey( "HBPREVIEW1", 0, VK_DOWN  , {|| SendMessage( GetFormHandle("HBPREVIEW1"), WM_VSCROLL, SB_LINEDOWN, 0 ), DoMethod("HBPREVIEW", "SetFocus") } ) 
 		_DefineHotKey( "HBPREVIEW1", 0, VK_INSERT, {|| scale := scale * 1.25, ::PrevShow(), DoMethod("HBPREVIEW", "SetFocus") } ) 
 		_DefineHotKey( "HBPREVIEW1", 0, VK_DELETE, {|| scale := scale / 1.25, ::PrevShow(), DoMethod("HBPREVIEW", "SetFocus") } ) 
 		_HMG_ShowContextMenus := .F. 
  
 		 END WINDOW 
 ...