[VB6] Controllo inattività utente

[Sypher]

Vedi se può esserti utile un esempio fatto su un semplice form
Devi mettere un Timer sul form!

Private i As Double

Private Sub Form_Load()
    Timer1.Interval = 1000
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If i > 5 Then
        MsgBox "Oltre i 5 secondi"
    End If
    i = 0
End Sub

Private Sub Timer1_Timer()
    i = i + 1
End Sub