Advertisement
Advertisement
| 06.21.2008 at 06:14AM PDT, ID: 23504514 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: |
Dim endTime As Double endTime = frm_toolbar.Timer1 + 1000 Do While frm_toolbar.Timer1 < endTime And exitloop = False ' Debug.Print Now & vbCrLf DoEvents Call set_load_buttons Call check_image_source Loop frm_toolbar.Timer1.Interval = 0 frm_toolbar.Timer1.Enabled = False |