[vb6]pulsanti in toolbar

[Last_Winter]

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Apri" 'key dei pulsanti
Apri
Case "Salva"
Salva
Case "Stampa"
Stampa
End Select
End Sub

Claro?