Option Explicit

 

Private Type LASTINPUTINFO

  cbSize As Long

  dwTime As Long

End Type

 

Private Declare Function GetLastInputInfo Lib "USER32.DLL" (plii As LASTINPUTINFO) As Long

Private Declare Function GetTickCount Lib "kernel32" () As Long

 

Dim Lii As LASTINPUTINFO

 

Private Sub Form_Load()

  Timer1.Interval = 1000

  Timer1.Enabled = True

End Sub

 

Private Sub Timer1_Timer()

  Dim T As Long

  Lii.cbSize = 8

  Call GetLastInputInfo(Lii)

  T = GetTickCount

  Caption = (T - Lii.dwTime) \ 1000

End Sub