PUBLIC oTbr1 oTbr1 = NEWOBJECT("toolbar1") oTbr1.Show() oTbr1.dock(0) DEFINE CLASS toolbar1 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 = "1", ; Name = "Command1" ADD OBJECT separator1 AS separator WITH ; Top = 3, ; Left = 35, ; Height = 0, ; Width = 0, ; Name = "Separator1" ADD OBJECT command2 AS commandbutton WITH ; Top = 3, ; Left = 35, ; Height = 22, ; Width = 23, ; Caption = "2", ; Name = "Command2" PROCEDURE command1.RightClick DEFINE POPUP myshortcut shortcut RELATIVE FROM MROW(),MCOL() DEFINE BAR 1 OF myshortcut PROMPT "sm1" DEFINE BAR 2 OF myshortcut PROMPT "sm2" DEFINE BAR 3 OF myshortcut PROMPT "am3" ACTIVATE POPUP myshortcut ENDPROC PROCEDURE command2.RightClick DEFINE POPUP myshortcut shortcut RELATIVE FROM MROW(),MCOL() DEFINE BAR 1 OF myshortcut PROMPT "sm1-2" DEFINE BAR 2 OF myshortcut PROMPT "sm2-2" DEFINE BAR 3 OF myshortcut PROMPT "am3-2" ACTIVATE POPUP myshortcut ENDPROC ENDDEFINE>How can i display a context popup menu over a command button that is inside a toolbar?