VB 重新登录问题，急．．．

Question

我用ＶＢ做了一个系统，当用户进入系统后，如果２小时之内都不进行操作的话（比如登录系统后，人走开了），过了２个小时后，希望系统自动跳出一个提示框，通知他已经超时了，要重新登录．跳出来的框最好有一个按钮，点这个按钮直接转到登录页面．不知道应该怎么实现，请高手帮忙，谢谢分不够可以再加．．．

Answer 1

Dim i As IntegerPrivate Sub Command1_Click()
i = 60
End SubPrivate Sub Form_Load()
i = 60
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If i <= 0 Then
    Timer1.Enabled = False
    If MsgBox("已经退出登录！还要继续登录吗？", vbYesNo, "退出提示") = vbYes Then
        i = 60
        Timer1.Enabled = True
    Else
        End
    End If
Else
    Command1.Caption = i & "秒钟之内必须点我啦！"
End If
i = i - 1
End Sub

Answer 2

timer 控件
Interval=1000是一秒，2个小时累加到7200即可