line 50 
 	DEFINE WINDOW &cWnd AT 0,0 WIDTH 650+60 HEIGHT 500 ; 
 		TITLE 'MiniGUI. Window\TsBrowse:UserKeys Demo' ; 
 		ICON  'hmg_ico' ; 
 		MAIN  NOMAXIMIZE NOSIZE ;  
       ON INIT       NIL ;  
       ON RELEASE    dbCloseAll() ; 
       ON MOUSECLICK ClickProcedure()  
  
 line 86 
       oWnd:UserKeys('FRM_0' , {|     | PostMessage( oWnd:Handle, WM_LBUTTONDOWN, 0, 0 ), DoEvents()  }) 
  
       oWnd:UserKeys('FRM_1' , {|o    | MsgBox( ( This.Name )+" | "+o:Cargo:Get(1)+( This.FRM_1.Cargo ), oWnd:Name ) }) 
       oWnd:UserKeys('FRM_2' , {|o    | MsgBox( ( This.Name )+" | "+o:Cargo:Get(2)+( This.FRM_2.Cargo ), oWnd:Name ) }) 
       oWnd:UserKeys('FRM_3' , {|o    | MsgBox( ( This.Name )+" | "+o:Cargo:Get(3)+( This.FRM_3.Cargo ), oWnd:Name ) }) 
  
 line 191 
 		DEFINE TOOLBAR ToolBar_3 BUTTONSIZE 16,16 FLAT 
 		 
 			BUTTON  FRM_0 ; 
 			PICTURE 'page_nr' ; 
 			ACTION  oWnd:UserKeys( This.Name ) ; 
 			TOOLTIP 'Create form'+space(9)+'<1>, <2>, <3>'  
 		 
 		END TOOLBAR 
  
 line 355 
       nY += 20 
       nX := This.oBrw1.Width+20 
  
      @ nY, nX BUTTONEX FRM_1 PICTURE 'n1' CAPTION "" ; 
               ACTION ( oWnd:UserKeys( This.Name ), oBrw1:SetFocus() ) ; 
               WIDTH 50 HEIGHT 50 ; 
               TOOLTIP 'Create form'+space(9)+'<1>' ; 
               NOXPSTYLE NOTABSTOP 
               This.FRM_1.Cargo := ' Form <1> created !' 
  
        nY += This.FRM_1.Height + 20 
  
      @ nY, nX BUTTONEX FRM_2 PICTURE 'n2' CAPTION "" ; 
               ACTION ( oWnd:UserKeys( This.Name ), oBrw1:SetFocus() ) ; 
               WIDTH 50 HEIGHT 50 ; 
               TOOLTIP 'Create form'+space(9)+'<2>' ; 
               NOXPSTYLE NOTABSTOP 
               This.FRM_2.Cargo := ' Form <2> created !' 
 		 
        nY += This.FRM_2.Height + 20 
  
      @ nY, nX BUTTONEX FRM_3 PICTURE 'n3' CAPTION "" ; 
               ACTION ( oWnd:UserKeys( This.Name ), oBrw1:SetFocus() ) ; 
               WIDTH 50 HEIGHT 50 ; 
               TOOLTIP 'Create form'+space(9)+'<3>' ; 
               NOXPSTYLE NOTABSTOP 
               This.FRM_3.Cargo := ' Form <3> created !' 
  
 line 711 
 STATIC FUNC ClickProcedure() 
  Local nRow := _HMG_MouseRow 
  Local nCol := _HMG_MouseCol 
  Local cWnd := _HMG_ThisFormName 
  Local aNam := {'FRM_1', 'FRM_2', 'FRM_3'}      // button control name 
  Local i, h 
  
  If nRow == 0 .and. nCol == 0  
  
     For i := 1 To len(aNam) 
         h := GetControlHandle(aNam[ i ], cWnd) 
         SendMessage( h, WM_LBUTTONDOWN, 0, 0 )  //   press button 
         SendMessage( h, WM_LBUTTONUP  , 0, 0 )  // unpress button 
         InkeyGui(100) 
     Next 
  
  EndIf 
  
 RETURN Nil