Colocar submenu en el control toolbar

[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