hi,
im trying to call the form load after each 5 seconds. can enyone please look at my code and show me how to load the form after 5 seconds. thank you
[code=vb]
Private Sub Form_Load()
lbl.Caption = "30"
End Sub
Private Sub Timer1_Timer()
If lbl.Caption = 0 Then
Timer1.Enabled = False
MsgBox ("100 secs is up")
Else
lbl.Caption = lbl.Caption - 1
End If
If lbl.Caption = lbl.Caption ' And i dont know the rest
Random
End If
End Sub
Public Sub Random()
Randomize
Label4.Caption = Int(Rnd * 10)
End Sub
[/code]
Plese help...
im trying to call the form load after each 5 seconds. can enyone please look at my code and show me how to load the form after 5 seconds. thank you
[code=vb]
Private Sub Form_Load()
lbl.Caption = "30"
End Sub
Private Sub Timer1_Timer()
If lbl.Caption = 0 Then
Timer1.Enabled = False
MsgBox ("100 secs is up")
Else
lbl.Caption = lbl.Caption - 1
End If
If lbl.Caption = lbl.Caption ' And i dont know the rest
Random
End If
End Sub
Public Sub Random()
Randomize
Label4.Caption = Int(Rnd * 10)
End Sub
[/code]
Plese help...
Comment