RE:Crear Barra de Herramientas
*- 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