Bueno lo normal es esto
Código:
Private Sub toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "guardar"
Call Guardar
Case "Actualizar"
Call Actualizar
End Select
End Sub
Pero como llamo desde los subitems del menu atravez del key