if not pemstatus(_screen,"oTool", 5 )  
    _screen.addproperty("oTool")  
  endif  
  if type("_screen.oTool") <> "O"  
    _screen.oTool = createobject('_tlb')  
  else  
    if isnull(_screen.oTool)  
      _screen.oTool = createobject('_tlb')  
    endif  
  endif  
  if _screen.oTool.docked = .f.  
    _screen.oTool.dock( 0 , 0 , 0 )  
    _screen.oTool.show()  
  endif  
    
    
  define class _txttlb as TextBox   
    procedure keypress  
      LPARAMETERS nKeyCode, nShiftAltCtrl  
      wait nowait window alltrim(str(nKeyCode))+"-"+alltrim(str(nShiftAltCtrl))  
    endproc  
  enddefine  
    
  define class _tlb as toolbar  
    
    caption = "Проверка KeyPress"  
    name = "_tlb"  
    
    
    add object _txt as _txttlb with ;  
      name = "_txt", ;  
      width =  120   
    
  enddefine