Tremer Mouse(PERIGOSO!) VB6!

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.
Boun

É legal pra fazer brincadeiras, mas acho meio perigoso, eu tava fazendo pro icone do mouse desaparecer ai pensei q qnd saísse do projeto o mouse aparecia dnv, pense como deu trabalho kkk dps eu fui com todo sacrifico sem ver o mouse em painel de controle e tudo se resolveu.

kkkk, Devia ser muito sacrifício mesmo kkk... Mas eu avisei sim.. Perigoso! eu tentei de brincadeira e consegui tirar.. mas ai eu aumentei a velocidade ai ferro.. também foi muito difícil tirar.