Private Sub Toolbar_ButtonClick(ByVal Button As MSComctlLib.Button) 
Select Case Button.Key 
  Case "Add"
    Toolbar.Buttons.Item(GetIndexFromKey("Add")).Enabled = False
    Toolbar.Buttons.Item(GetIndexFromKey("Ok")).Enabled = True
End Select
 
' Funktion gibt 0 zurück, wenn sie den Button auf Toolbar nicht gefunden hat
Function GetIndexFromKey(Key As String) As Integer
  Dim i As Integer
  For i = 1 To Toolbar.Buttons.Count
    If Toolbar.Buttons.Item(i).Key = Key Then
      GetIndexFromKey = i
      Exit Function
    End If
  Next
End Function

Cu David
--------------------------------------------
ist eine geniale Erfindung

Q-lympics ist geil