Observación:
Yo pondría los íconos en el mismo imagelist. No hacerlo así, lleva a cambiar la propiedad imagelist del toolbar... una jalea!
Hecha la observación, el código sería:
Private Sub Timer1_Timer()
If Toolbar1.Buttons(11).Image = 7 Then
Toolbar1.Buttons(11).Image = 4
Else
Toolbar1.Buttons(11).Image = 7
End If
End Sub
donde 11 es el indice del boton el el toolbar. 7 y 4 son los índices en el imagelist en que están los íconos a intercambiar.
Hola Juanolo, mi problema es que quiero incluir imagenes en mis buttonsmenus aparte del texto que a la izquierda tenga un icono. sabes si esto se puede hacer