Hola que tal, de nuevo mil gracias por sus aportaciones, estuve investigando y resolvi mi cuestion con lo siguiente:
Código:
Option Explicit
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetLastInputInfo Lib "user32" (plii As Any) As Long
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End Type
Private Sub Timer1_Timer()
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
Call GetLastInputInfo(lii)
With Label1
.Caption = FormatNumber((GetTickCount() - lii.dwTime) / 1000, 0)
.Refresh
End With
If CInt(Label1.Caption) = 10 Then
MsgBox "Timed out."
End If
End Sub
Con el código anterior se efectua exactamente lo que quiero. Como me acabo de dar cuenta de sus respuestas y no me a dado tiempo de checar sus aportaciones, pero con lo que nos dijo el amigo seba123neo no le entendi bien. Y con lo poco que vi sobre lo escribio Marcelote, pues creo que es solo para el "mouse" estaria faltando lo del teclado. Pero bueno de nuevo gracias. Que pasen una excelente tarde.
Saludos.!!!