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.
Timer1.Interval = 60000 ' 1 minute
Timer1.Enabled = True
Private Sub Timer1_Timer()
Static lngCounter As Long
lngCounter = lngCounter + 1
If lngCounter = 30 Then
MsgBox "30 mins is up"
Timer1.Enabled = False
lngCounter = 0
End If
End Sub