list box not show individual entries

I have a little script:
Private Sub Command1_Click()
pausetime = 3
For i = 1 To 5
start = Timer ' Set start time.
Do While Timer < start + pausetime
j = 5
Loop
List1.AddItem start
Next
End Sub

The start time does not show up in list1 until the entire 'for' loop has been executed.  Why doesn't it add the time to list1 on each iteration of the for loop?

donb1Asked:
Who is Participating?
 
VbmasterConnect With a Mentor Commented:
The List1 doesn't get any time to do a update. Place a DoEvents after List1.Additem start and the List1 will get time to update.
0
 
steve06Commented:
You should add the command DoEvents in your loop, instead of the line "j=5". This way, VB will let other windows events occur, and your listbox will be loaded.
0
 
donb1Author Commented:
setve06 is also a good idea
Thanks
0
All Courses

From novice to tech pro — start learning today.