Programming Forums - View Single Post

Infinite Recursion · Mar 3rd, 2006, 11:07 AM

something like this...

Private Sub Form_Load()
     Timer1.Interval = 1000
     Label1.Caption = "100"
End Sub

Private Sub Timer1_Timer()
     if label1.caption = 0 then
          timer1.enabled = false
          msgbox ("100 secs is up")
     else
          Label1.Caption = label1.caption - 1
     end if
End Sub

Mar 3rd, 2006, 11:07 AM	#6
Infinite Recursion Programming Guru Join Date: Jul 2004 Location: United States Posts: 3,467 Rep Power: 8	something like this... (Toggle Plain Text) Private Sub Form_Load() Timer1.Interval = 1000 Label1.Caption = "100" End Sub Private Sub Timer1_Timer() if label1.caption = 0 then timer1.enabled = false msgbox ("100 secs is up") else Label1.Caption = label1.caption - 1 end if End Sub Private Sub Form_Load() Timer1.Interval = 1000 Label1.Caption = "100" End Sub Private Sub Timer1_Timer() if label1.caption = 0 then timer1.enabled = false msgbox ("100 secs is up") else Label1.Caption = label1.caption - 1 end if End Sub __________________ http://jasonpowers.net "There are a thousand hacking at the branches of evil to one who is striking at the root."