¿Cómo configurar la hora en programación vb?

Atenuar lngTime As LongPrivate Sub Form_Load()

Timer1.Enabled = True

Timer1.Interval = 1000

Finalizar SubPrivate Sub Timer1_Timer ()

lngTime = lngTime + 1

Si lngTime = 7200 Entonces

' Haz lo que quieras hacer

lngTime = 0 ' <- Borre 0 si desea continuar después de 2 horas

Finalizar si

End Sub