Highlights
All Snippets
Top 100 Snippets
Librarians
gbCodeLib

By Language
VB6
JavaScript
Perl
HTML
SQL
Java
DOS

GBIC >> Source Code >> Visual Basic >> Snippet

Timer - extend control to large intervals


Sub Timer1_Timer()
'set Interval property to 60  = 1 minute
'Timer normally is good for about 1 minute
Static iMinutes
iMinutes = iMinutes + 1

If iMinutes Mod 5 <> 0 Then Exit Sub    '5 is the extended number of minutes

'you reached the extended time - do something
MSGBox "The timer hit 5 minutes"

'reset the timer to begin counting again
iMinutes = 0

End Sub