Como no podemos modificar las imágenes de una imagelist que esté asignada a otro control podremos emplear este truco para asignar las imágenes a la toolbar en tiempo de ejecución sin tener que "ligar" la imagelist a la toolbar en tiempo de diseño.

1 - Añadir las imágenes a la imagelist y asignarles un clave única a cada una.

2 - Añadir los botones a la toolbar y asignar a cada botón la misma clave que a la imagen que deben mostrar. Los botones sin imagen (tbrSeparator o tbrPlaceholder) NO deben tener clave.

3 - En el evento Load del formulario asignamos la imagelist a la toolbar :
    Set ToolBar1.ImageList = ImageList1

4 - Asignamos las imágenes a los botones :

Dim myButton as Variant

For Each myButton in ToolBar1.Buttons
    If myButton.Key <> Empty Then
       myButton.Image = myButton.Key
       'podemos emplear la clave también para los campos description y tooltiptext
       myButton.Description = myButton.Key
       myButton.ToolTipText = myButton.Key
    Endif
Next

Robert Stamm [robertstamm@hotmail.com]