Colocar submenu en el control toolbar

[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--