Must be simple but how do I loop through the listbox and set several intervals for the same timercontrol. Here is my source:

Private Sub Command1_Click()
Timer1.Interval = List1.List(0)
Timer1.Enabled = True
End Sub

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

Private Sub Timer1_Timer()
MsgBox List1.List(0)
timer1.interval = false
End Sub

The result I want to have is that after 1 second a message appears, after 2 seconds the next message appears, etc...