Ti posto un esempio di barra delle icone sul FrmMain, ove si utilizza il nome dell'icona al posto dell'indice:
codice:
'1^ Barra delle icone del FrmMain:
Public Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "Exit"
'Va al menù Exit:
Call frmMain.mnuFileExit_Click
'Riconosce il Form Attivo e carica un Nuovo file:
Case "New"
Dim strFormAttivo2 As String 'Variabile di Select Case
strFormAttivo2 = ActiveForm.Name
Select Case strFormAttivo2
Case "FrmControlloX"
'Nuovo file ControlloX:
Call FrmControlloX.NewControlloX
... ... ...
End Select
'Riconosce il Form Attivo e Apre / carica corrispondente file:
Case "Open"
... ... ...
End Select
End Select
End Sub