Simples nada que uma gambi não resolva....
Faz assim: Crie uma Label, insira um Time e esse código:
'---------------------------------------------------------------------------------
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = 0
End Sub
'--------------------------------------------------------------------------------
Private Sub Label1_Change()
If Label1.Caption = 3 Then
MsgBox "teste"
End If
End Sub
'--------------------------------------------------------------------------------
Private Sub Timer1_Timer()
Timer1.Interval = 1000
Label1.Caption = Label1.Caption + 1
End Sub
'--------------------------------------------------------------------------------
Como funciona: O Label vai armazenar o tempo de inatividade, quando o mouse está sendo utilizado no form o label é a todo o momento zerado...quando há uma inatividade o Time faz com que o label armazene um número (no caso 1) e soma com ele mesmo a cada segundo do Time, quando chega um tempo determinado pelo programador (ou pode ser pelo usuário mesmo só que vai ter que ter um text pra ele digitar o tempo final da inatividade) ele executa ou uma tela de segurança ou uma proteção de tela ai é com vc (parte em vermelho, coloquei um Msgbox só pra testar).... Hehehe, se te confundi posta de novo...
Obs: Vc tem que colocar no Caption da label 0 zero antes de executar o programa se não vai dar um erro.....vc tb pode deixar a label invisível...
