_screen.AddProperty("oFrmToolbar", NEWOBJECT("mytoolbar", "test")) >_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 = "", ; > Name = "Command1" > > ADD OBJECT command2 AS commandbutton WITH ; > Top = 3, ; > Left = 35, ; > Height = 22, ; > Width = 23, ; > Caption = "", ; > Name = "Command2" > > PROCEDURE command1.Click > * Comment > KEYBOARD "{ALT+o}m" > ENDPROC > PROCEDURE command2.Click > * Uncomment > KEYBOARD "{ALT+o}n" > ENDPROC >ENDDEFINE>