I need the Basic Timer component code!

[VIP3R]

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.

[dimava]

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)

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

[Paul282]

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...

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