Hello I am using the following code to know off a user after a certain
time. Does anyone know how I can change the time from being 1 minute to
20. Do I just change the intidleminutes to = 20 then what do i put on
under the time interval
Here is the code:

Const c_intIDLEMINUTES = 1 '30
Static strPrevCtlName As String
Static strPrevFrmName As String
Static lngExpiredTime As Long


Dim strActiveFrmName As String
Dim strActiveCtlName As String
Dim lngExpiredMinutes As Long


On Error Resume Next


strActiveFrmName = Screen.ActiveForm.Name
If Err Then
strActiveFrmName = "No Active Form"


Err = 0
End If


strActiveCtlName = Screen.ActiveControl.Name
If Err Then
strActiveCtlName = "No Active Control"
Err = 0
End If


txtActive.Text = strActiveCtlName & ";" & strActiveFrmName


If (strPrevCtlName = "") Or (strPrevFrmName = "") Or (strActiveFrmName
<> strPrevFrmName) Or (strActiveCtlName <> strPrevCtlName) Then
strPrevCtlName = strActiveCtlName
strPrevFrmName = strActiveFrmName
lngExpiredTime = 0
Else
lngExpiredTime = lngExpiredTime + Me.TimerInterval
End If


lngExpiredMinutes = (lngExpiredTime / 1000) / 60
If lngExpiredMinutes >= c_intIDLEMINUTES Then
'this user has to be kicked off
lngExpiredTime = 0
Application.Quit acQuitSaveAll
End If
End Sub