Logout Automatico Da Programma

[ale500]

un esempio molto facile: (l'Intervall del Timer è su 3000 [3 sec])

Public cliccato As Boolean
Private Sub Command1_Click()
cliccato = True
End Sub

Private Sub Timer1_Timer()
If cliccato = True Then
    MsgBox "avevi cliccato nel pulsante"
    cliccato = False
    Else
        If cliccato = False Then
            MsgBox "è da troppo tempo che non clicchi!!!"
        End If
End If
End Sub