PUBLIC oToolBar
oToolBar = CREATEOBJECT("MyToolBar")
oToolBar.Show()
DEFINE CLASS MyToolBar AS Toolbar
  Caption="This is My Toolbar by code"
  ADD OBJECT cmdButton1 AS MyButton
  ADD OBJECT cmdButton2 AS MyButton
  PROCEDURE cmdButton2.Click
    *** Modified Procedure
    MESSAGEBOX("Hola Mundo")
  ENDDEFINE
ENDDEFINE
DEFINE CLASS MyButton AS CommandButton
   PROCEDURE Click
      MESSAGEBOX("Hello World")
   ENDPROC
ENDDEFINE