DEFINE CLASS yourForm AS FORM ShowWindow = 2 && as top-level form oToolBar = .NULL. && ... other declarations PROCEDURE Init() WITH this .oToolBar = CreateObject( "yourToolBar") .oToolBar.Show() ENDWITH ENDPROC PROCEDURE Destroy() WITH this .oToolBar.Visible = .F. .oToolBar = .NULL. ENDWITH ENDPROC ENDDEFINE DEFINE CLASS yourToolBar AS TOOLBAR ShowWindow = 1 && in top-level form && ... other declarations ENDDEFINEBest regards