Article ID: 175547
Article Last Modified on 12/10/2003
Option Explicit
Private Sub Command1_Click()
Dim z As Integer, y As Integer
For z = 1 To 100
y = y + 1
Toolbar1.Buttons(1).Image = y Mod 2 + 1
DoEvents
Next z
End Sub
Additional query words: kbDSupport
Keywords: kbbug kbfix KB175547