A Simple Long Delay Timer

Private Sub Timer1_Timer()
  
  'Set the interval of the timer.
  'Each time the timer event is called
  'subtract one from the tick.
  
  'Assuming 10000 interval with a 1440 tick,
  'this would give a delay of 4 hours.
  
  '10000 / 1000 = 10 *Milliseconds to Seconds
  '10 * 1440 = 14400 *Multiply by ticks
  '14400 / 60 = 240  *Seconds to minutes
  '240 / 60 = 4    *Minutes to hours
  
  'Allocate a static variable
  Static siTick As Integer
    
  'Check if variable greater then desired tick
  If siTick > 1440 Then
    
    '************ Do some code ************'
    
    'Start the ticker over
    siTick = 0
    
  'If not then add one to the tick
  Else
    siTick = siTick + 1
  End If
  
End Sub