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