Bonjour a tous
peux quelqu'un courige ce code sourse:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Declare Function BlockInpute Lib "user32" (ByVal fBlock As Long) As Long
 
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Form_Load()
DoEvents
BlockInput True
Sleep 2000
BlocInput False
End Sub
Ce code source devrai permettre l'arrêt de la souris et du clavier en 2seconde 2000=2seconds....mais j'ai pas trouvez ou est le problème de ce code
Svp peux quelqu'un m'aider et merci