FoxPro/Visual FoxPro - Crear Barra de Herramientas

Hola, alguien podria explicarme como crear e insertar en un form una barra de herramientas?, si es posible con un ejemplo.
Muchas gracias.

lo que debes hacer es crear una clase tuya personalizada basada en la clase toolbar de visual fox y luego agregarla al formulario donde quieres que vaya, para eso te pide que si deseas crear un conjunto de formularios y luego lo manejas igual que un formulario, donde puedes agregar cualquier objeto..

*- Prueba este código dentro de un archivo solo, y cambia lo que no exista.

PUBLIC tbrEscritorio
tbrEscritorio = CREATEOBJ('Acceso_Rápido')
tbrEscritorio.Dock(0) && Anclada en la Parte Superior
tbrEscritorio.SHOW

DEFINE CLASS Acceso_Rápido AS Toolbar
ADD OBJECT cmdProductos AS CommandButton
ADD OBJECT cmdResponsables AS CommandButton
ADD OBJECT cmdProveedores AS CommandButton
ADD OBJECT sep1 AS Separator
ADD OBJECT cmdSalidas AS CommandButton
ADD OBJECT cmdPedidos AS CommandButton
ADD OBJECT cmdEntradas AS CommandButton
ADD OBJECT sep3 AS Separator
ADD OBJECT cmdRespaldos AS CommandButton
ADD OBJECT cmdSalir AS CommandButton

cmdProductos.Height = 48
cmdProductos.Width = 48
cmdProductos.Caption = ""
cmdProductos.ToolTipText= "Productos"
cmdProductos.Picture = "productos.bmp"

cmdResponsables.Height = 48
cmdResponsables.Width = 48
cmdResponsables.Caption = ""
cmdResponsables.ToolTipText = "Responsables"
cmdResponsables.Picture = "clientes.bmp"

cmdProveedores.Height = 48
cmdProveedores.Width = 48
cmdProveedores.Caption = ""
cmdProveedores.ToolTipText = "Proveedores"
cmdProveedores.Picture = "proveedores.bmp"
*+----------------
cmdSalidas.Height = 48
cmdSalidas.Width = 48
cmdSalidas.Caption = ""
cmdSalidas.ToolTipText = "Salidas de Producto