_screen.AddProperty("oFrmToolbar", CREATEOBJECT("mytoolbar")) >_screen.oFrmToolbar.Show() >RETURN > >DEFINE CLASS mytoolbar AS toolbar > > Caption = "Toolbar1" > Height = 28 > Left = 0 > Top = 0 > Width = 63 > Name = "mytoolbar" > > ADD OBJECT command1 AS commandbutton WITH ; > Top = 3, ; > Left = 5, ; > Height = 22, ; > Width = 23, ; > Caption = "H+", ; > Name = "Command1" > > ADD OBJECT command2 AS commandbutton WITH ; > Top = 3, ; > Left = 35, ; > Height = 22, ; > Width = 23, ; > Caption = "H-", ; > Name = "Command2" > > PROCEDURE command1.Click > * + > KEYBOARD "{ALT+o}{DNARROW}{DNARROW}{SPACEBAR}I" > ENDPROC > PROCEDURE command2.Click > * - > KEYBOARD "{ALT+o}{DNARROW}{DNARROW}{SPACEBAR}D" > ENDPROC >ENDDEFINE >