SOURIS OU PLUTOT CURSEUR QUI TREMBLE..

' Déclarations des API :

' Détecte la position du curseur
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'Modifie la position du curseur
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

' Déclaration du type POINTAPI

Private Type POINTAPI
    X As Long
    Y As Long
End Type
Dim a

Private Sub form_load()
'Mais la form en position réduite
Form1.WindowState = 1
End Sub
Private Sub btnend_Click()
' Quitter
Unload Me
End Sub
Private Sub Timer1_Timer()
Dim PosCursor As POINTAPI

r& = GetCursorPos(PosCursor)

Dim PosX As Long
Dim PosY As Long

'Choisi un chiffre aléatoire entre de 1 à 4
a = Int(Rnd * 4) + 1

If a = 1 Then 'Si a=1 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * -2)) 'déduit moins 2 a la psition du curseur en x
PosY = (PosCursor.Y + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en y
End If
If a = 2 Then 'Si a=2 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en x
PosY = (PosCursor.Y + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en y
End If
If a = 3 Then 'Si a=3 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en x
PosY = (PosCursor.Y + Int(Rnd * -2)) 'déduit moins 2 a la psition du curseur en y
End If
If a = 4 Then 'Si a=4 éxécute THEN
PosX = (PosCursor.X + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en x
PosY = (PosCursor.Y + Int(Rnd * 2)) 'ajoute 2 a la position du curseur en y
End If
'Ceci n'est pas forcément utile
If PosY > 599 Then 'Si la position du curseur est supérieur a 599 pixel (sur la hauteur)le curseur est repositionner sur l'écran aléatoirement
PosY = Int(Rnd * 599) + 1
End If
If PosY < 1 Then 'Si la position du curseur est inférieur a 1 pixel (sur la hauteur)le curseur est repositionner sur l'écran aléatoirement
PosY = Int(Rnd * 599) + 1
End If
If PosX > 799 Then 'Si la position du curseur est supérieur a 799 pixel (sur la largeur)le curseur est repositionner sur l'écran aléatoirement
PosX = Int(Rnd * 799) + 1
End If
If PosX < 1 Then 'Si la position du curseur est inférieur a 1 pixel (sur la largeur)le curseur est repositionner sur l'écran aléatoirement
PosX = Int(Rnd * 799) + 1
End If
'Donne la nouvelle position au curseur
r& = SetCursorPos(PosX, PosY)
End Sub