FoxPro/Visual FoxPro - Me pueden ayudar con un ejemplo de toolbar visual foxpro

buen dia, amigos.
estoy programando en visual foxpro.
he creado 2 clases toolbar.

SET STATUS OFF
SET EXCLUSIVE OFF
SET DELETED ON
SET SAFETY OFF
SET DATE TO british
SET DELETED ON
SET CENTURY on
SET PATH TO data, formas, pictures, clases, menus,prg,informes


_SCREEN.WINDOWSTATE = 2
_SCREEN.CAPTION = "WAREHOUSE MANUFACTORY SYSTEM"
_SCREEN.Icon="\sistema\pictures\ftp.ico"
_SCREEN.Closable= .F.


_SCREEN.ADDOBJECT("oImagen","Image")
WITH _Screen.oImagen
lcPicture = "\sistema\pictures\images23.jpeg" &&lcPicture = GETPICT()
.PICTURE = lcPicture
.STRETCH = 2 && 1=Mantiene las proporciones, 2=Cubre todo
*-- Solo si la imagen tiene transparencia
* .BACKSTYLE = 0 && 0=Transparente, 1=Opaca
.LEFT = 0
.TOP = 0
.WIDTH = _SCREEN.WIDTH
.HEIGHT = _SCREEN.HEIGHT
.ANCHOR = 15
.VISIBLE = .T.
ENDWITH


_SCREEN.ADDOBJECT('Image2','Image')
_SCREEN.image2.picture = '\sistema\logo8.jpeg'
_SCREEN.image2.top =(_SCREEN.HEIGHT/2)-(_SCREEN.IMAGE2.HEIGHT/2)
_SCREEN.image2.left =(_SCREEN.WIDTH/2)-(_SCREEN.IMAGE2.WIDTH/2)
_SCREEN.image2.visible = .t.


SET SYSMENU off
PUSH MENU _msysmenu
DO C:\sistema\menus\WMSMENU.MPR

SET CLASSLIB TO C:\sistema\clases\bmenu1.vcx additive
_screen.AddProperty("barra1")
_screen.barra1=CREATEOBJECT("barra1")
_screen.barra1.dock(0)
_screen.barra1.visible=.t.


READ EVENTS
*-eof


en el prg principal cargo la primera barra BARRA1.
al abrir cualquier formulario en mi menu principal necesito ocultar esta toolbar y hacer que aparezca otra toolbar (barra2), y al cerrar el formulario necesito que desaparezca barra2 y que aparezca barra1.

como hago esto?
me pueden enviar un codigo ejemplo en visual foxpro de como hacer esto?
gracias

si solo la estas ocultando entonces alli tienes la respuesta vuelvela a mostrar

coloca esto en el QueryUnload del formulario



y en el load de cada formulario