Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
With Toolbar1
Select Case Button.Index
Case 1
Call habil
.Buttons(2).Enabled = True
Case 2
Call habil
.Buttons(3).Enabled = True
Case 3
Call habil
.Buttons(4).Enabled = True
Case 4
Call habil
.Buttons(5).Enabled = True
Case 5
Call habil
.Buttons(1).Enabled = True
End Select
End With
End Sub
Sub habil()
With Toolbar1
.Buttons(1).Enabled = False
.Buttons(2).Enabled = False
.Buttons(3).Enabled = False
.Buttons(4).Enabled = False
.Buttons(5).Enabled = False
End With
End Sub