Timer As A Loop Ender?!?!?

[Brin]

Hey,

For Ill tell you what this code is trying to do...
It counts to as much as it can, as fast as it can all adding up to n the variable. But when the Timer's Interval = 10000 it should end.
Any way to do this? btw... I will make the timer's action do something else later, just for now i wrote that
Thanks I'm not very good at loops, my loops keep making my vb crash
gl!

Private Sub Command1_Click()
    Dim n As String
    Let n = 1
Do Until Interval = 10000    
    Picture1.Cls
    Picture1.Print n + 1
loop
End Sub
 
 
Private Sub Timer1_Timer()
    Unload Form1
End Sub