loop in the timer control????

[HeSaidJoe]

Hansz:

Close, you forgot to loop so x never grows

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
x = 0
List1.AddItem 1000
List1.AddItem 2000
List1.AddItem 3000
Timer1.Enabled = False
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
  Do
     MsgBox List1.List(x)
     x = x + 1
     Timer1.Interval = x * 1000
  Loop Until x = 3
     Timer1.Enabled = False

End Sub

[Edited by HeSaidJoe on 08-04-2000 at 06:07 PM]