Private Sub Command1_Click()
Dim i As Integer
  With Toolbar1
     .ImageList = iml1
      For i = 1 To .Buttons.Count
        .Buttons(i).Image = i
      Next i
  End With
End Sub
 
Private Sub Command2_Click()
Dim i As Integer
  With Toolbar1
    .ImageList = iml2
      For i = 1 To .Buttons.Count
        .Buttons(i).Image = i
      Next i
  End With
End Sub

Gru? aus dem Norden
manyki