Interesting link, thanks, but not spefcially what I wanted.
I did ultimately find what I was looking for:
1) Create a Text Box field on the form and name it txtTimer
2) Create a Label field on the fortand name it labTimesUp . Type any mesage in the label ,eg "Times Up!
3) On the Form properties set Timer Interval to 1000
4) On the Form properties On Timer event, cut and paste this event procedure.
Code:
Private Sub Form_Timer()
Me.txtTimer.VALUE = Me.txtTimer.VALUE - 1
If Me.txtTimer.VALUE = 0 Then
labTimesUp.Visible = True
Me.TimerInterval = 0
Else
End If
End Sub
5) On the Form properties On Open event, cut and paste this event procedure
Code:
Private Sub Form_Open(Cancel As Integer)
Me.txtTimer.VALUE = 20
End Sub
... or use Me.txtTimer.VALUE = 30 for a 30 second timer.
Done.