[vb6]pulsanti in toolbar

[LMondi]

Ciao postmaster1.
Poniamo che vuoi uscire dal programma e clicchi sull'Icona Exit:

Public Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)
        On Error Resume Next
                
    Select Case Button.Key
        Case "Exit"
            Call frmMain.mnuFileExit_Click   
... ... ...    
    End Select
End Sub

In questo modo con Call vai alla routine inserita nel menù Esci.
Naturalmente avrai inserito nel pulsante (Icona corrispondente) Index 1 la Key Exit (Clic sulla Barra delle icone > Proprietà.
Ciao !