Visual Basic - ¿COMO PUEDO VOLVER A INICIAR ESTE CODIGO PARA QUE SIGA FUNCIONANDO Y NO SE DETENGA ? ES INACTIVIDAD

¿COMO PUEDO VOLVER A INICIAR ESTE CODIGO PARA QUE SIGA FUNCIONANDO Y NO SE DETENGA ? ES INACTIVIDAD DEL MOUSE, Funciona pero tengo q iniciarlo denuevo con un boton, quiero q nunca termine
que se siga ejecutando por siempre

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

GetLastInputInfo(INPUT) COMPROBAMOS LA FUNCION CADA SEGUNDO

Dim TOTAL As Integer = Environment.TickCount MILISEGUNDOS DESDE QUE SE INICIO LA SESION
Dim ULTIMO As Integer = INPUT.dwTime MILISEGUNDOS DESDE LA ULTIMA ACTIVIDAD (TECLADO Y MOUSE)
Dim INTERVALO As Integer = (TOTAL - ULTIMO) / 1000 DIFERENCIA EN SEGUNDOS

Label1.Text = INTERVALO MUESTRA EL INTERVALO EN SEGUNDOS TRANSCURRIDOS DESDE LA ULTIMA ACTIVIDAD

If INTERVALO >= NumericUpDown1.Value Then COMPARA EL DATO Y EJECUTA LO QUE DIGAMOS AL LLEGAR AL LIMITE FIJADO EN EL TEXTBOX
Timer1.Stop()
MsgBox(NumericUpDown1.Value & " SEGUNDOS DE INACTIVIDAD")
Beep()
Label1.Text = 0
ProgressBar1.Value = 0

End If

ProgressBar1.Value = INTERVALO
End Sub