Cerrar un form automaticamente despues de 10 minutos

[franko1809]

Bueno surge un problema se desborda el timer ya q solo acepta 65535 de interval, el ejemplo corre con 5 minutos y pense que corria con cualquier tiempo pero NO!, al poner 10 minutos se desborda espero me puedas ayudar a solucionar el problema ya que quiero q se ejemcute cada 1 hora o 2 horas aqui esta el codigo

Código:

Option Explicit
Const INTERVALO_EN_MINUTOS As Integer = 3 ' tiempo en minutos

Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Static Temp_Seg As Long
Temp_Seg = Temp_Seg + 1
If (Temp_Seg * 60) >= (INTERVALO_EN_MINUTOS * 60) * 60 Then
   Temp_Seg = 0
   Form2.Show
End If
End Sub