Bom, pessoal, é um código que quando clicar no botão, seu mouse irá tremer DESCONTROLADAMENTE
então aviso: perigoso, xD.

Você precisará de um botão - btnTremer com a caption "Tremer Mouse", e uma timer chamado "tmrTremer"

Código:

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Type POINTAPI
        x As Long
        y As Long
End Type

Private Sub tmrTremer_Timer()
Dim Pos As POINTAPI
GetCursorPos Pos
Call SetCursorPos(Pos.x + Random(20) - 10, Pos.y + Random(20) - 10)
End Sub

Private Function Random(Num As Integer)
    Random = Int(Rnd * Num)
End Function

Private Sub btnTremer_Click()
If btnTremer.Caption = "Tremer Mouse" Then
tmrTremer.interval = 1
btnTremer.Caption = "Normalizar Mouse"
Else
tmrTremer.interval = 0
btnTremer.Caption = "Tremer Mouse"
End If
End Sub

Caso queira que o comando seja ativado ao abrir o aplicativo, na form_load adicione:

Código:

tmrTremer.interval = 1

Isso é bem util caso queira fazer umas "brincadeiras" com seus amigos.
by boun

Eu ja vi comentários sobre isto kk, não pretendo testar e acho que seria bom só para trollar no pc de amigos mesmo, deixar num pen-drive e por no pc do amigo kkk!

Mais é util para Trolladores.

+ Rep ^^

Um comentário que eu ví sobre isso é que o Mouse some dai nem reiniciando ele volta, só imaginando o mouse e colocando ele denovo pelo painel de controle...Não aconselho usarem isso...

Nunca vi isso acontecer...