Colocar submenu en el control toolbar

[franko1809]

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

[Insomnia]

Hola

No he entendido muy bien tu pregunta, pongo el código que yo utilizo para el botón del toolbar

Código:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

    Select Case Button.Index
        
        Case 1 'Generar documento
            FGenDoc
            
        Case 3
            FNuevo
            
        Case 5
            FEmail
        Case 11
            FSalir
            
    End Select
    
            
End Sub

Y el Submenú del Toolbar

Código:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

    Select Case ButtonMenu.Index
        Case 1
            FGenDoc
        Case 2
            FGenDocSD
        Case 3
            Ingleses = True
            FGenDoc
    End Select

Espero que te ayude.

--Saludos--

[franko1809]

gracias tio estaba bloqueado lo que necesitaba era eso

Código:

Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu)

    Select Case ButtonMenu.Index
        Case 1
            FGenDoc
        Case 2
            FGenDocSD
        Case 3
            Ingleses = True
            FGenDoc
    End Select

End Sub

saludos