Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Form_Load()
Me!clock = Now
TimerInterval = 1000
End Sub
Sub Form_Timer()
Me!clock = Now
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
'Code to reset timer
Me!clock = Now
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'Code to reset timer
Me!clock = Now
End Sub