I'm sorry, some corrections at code:

DEFINE CLASS yourForm AS FORM
	ShowWindow = 2 && as top-level form
	oToolBar = .NULL.
	&& ... other declarations

	PROCEDURE Show( nShow)	&& or Activate event... as you want it
		IF TYPE( "nShow") = "N"
			DODEFAULT( nShow)
		ELSE
			DODEFAULT()
		ENDIF
		WITH this
			IF TYPE( ".oToolBar") # "O" .OR. ;
				ISNULL(.oToolBar)
				.oToolBar = CreateObject( "yourToolBar")
				.oToolBar.Show
			ENDIF
		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

ENDDEFINE

This code works fine, was checked!

Best regards

Alex.