I need the Basic Timer component code!

I ran into this problem many times and I can't fix it.

The timer component's Interval value is set to a Short. That prevents me from making the delay time 10 minutes. If anyone could be nice enough to send me the component code or make me a code, I'd appreciate it. I need to set the interval value to a long so that it can handle a 10 minute interval delay.

if I were you this is what I would do: make 10 timers with a interval of 60000

and set enabled to false (to every timer but timer 1)

Code:

---



Private Sub Timer1_Timer()
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer10_Timer()
'your code here
Timer10.Enabled = False
End Sub

Private Sub Timer2_Timer()
Timer3.Enabled = True
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
Timer4.Enabled = True
Timer3.Enabled = False
End Sub

Private Sub Timer4_Timer()
Timer5.Enabled = True
Timer4.Enabled = False
End Sub

Private Sub Timer5_Timer()
Timer6.Enabled = True
Timer5.Enabled = False
End Sub

Private Sub Timer6_Timer()
Timer7.Enabled = True
Timer6.Enabled = False
End Sub

Private Sub Timer7_Timer()
Timer8.Enabled = True
Timer7.Enabled = False
End Sub

Private Sub Timer8_Timer()
Timer9.Enabled = True
Timer8.Enabled = False
End Sub

Private Sub Timer9_Timer()
Timer10.Enabled = True
Timer9.Enabled = False
End Sub

---

Jesus, that's gotta be the ugliest piece of code I've seen for a while, What happens it he needs to change it to 1 hour!!! ??

Not debuged, but you get the idea...

Code:

---


Public Mins As Integer
Const Interval = 10

' in form load
  Timer1.Interval = 60000 ' 1 minute
  Mins = 0

Private Sub Timer1_Timer()

  Mins = Mins + 1

  If Mins = Interval then
      'Execute 10 minute code
      Mins = 0
  End If

End Sub

---