>Gracias por tu interés en ayudarme, pero si por favor: me envías un ejemplo de crear una clase, insertar en un programa dicha clase y ejecutarla, te agradecería mucho más.

Nota: no tengo VFP a la mano en este momento; espero acertar, más o menos.

Crear la clase: Ejemplo, ToolBar, que es lo que te interesa. Desde el proyecto, selecciona la ficha de clases, y da la orden "New". Las clases se almacenan en librerías de clases; una librería puede tener cero o más clases.

Para nuestro ejemplo, creá una clase llamada cMiToolBar, y guardalo en la librería Pruebas (pruebas.vcx).

Tienes que fijarte que tu clase debe basarse en "Toolbar".

En tu ToolBar, meté unos cuantos CommandButtons. Hazlos pequeños, quitales el Caption, e insertá iconos con la propiedad Picture. Asignales un comando en el evento Click().

Puedes poner separadores entre grupos de botones.

Usar la clase: Básicamente, necesitas estos comandos:

public goMiToolBar
* Público para esta prueba.
* Si no, el ToolBar se destruye al finalizarse el programa.
set classlib to Pruebas additive
goMiToolBar = CreateObject("cMiToolBar")
goMiToolBar.Dock() && Optativo
goMiToolBar.Show()

Parece complicado, pero el manejo con clases te da muchas ventajas. Especialmente, a través de la herencia, puedes tener varios ToolBars (o Forms, o CommandButtons, o TextBoxes, etc.) similares, que heredan de una "clase padre". Cualquier cambio en la clase padre se propagará a toda la jerarquía que hereda de la clase padre.

HTH,

Hilmar.