Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
    Case "open"
      ...
    Case "save"
      ...
  End Select
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de