What's the most usual project you've made?

[kedaman]

Here comes the source Just press ctrl-alt-delete end task to remove it (if you compile it) else you just press ctrl break
[/code]
'BUGGY CURSOR COPYRIGHT KEDAMAN 3010-4058
Const REACT = 1000
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Type POINTAPI
X As Long
Y As Long
End Type
Public vx!, vy!, px!, py!
Property Get cursorX%()
Dim pnt As POINTAPI
temp = GetCursorPos(pnt)
cursorX = pnt.X
End Property
Property Let cursorX(newvalue%)
temp = SetCursorPos(newvalue, cursorY)
End Property
Property Get cursorY%()
Dim pnt As POINTAPI
temp = GetCursorPos(pnt)
cursorY = pnt.Y
End Property
Property Let cursorY(newvalue%)
temp = SetCursorPos(cursorX, newvalue)
End Property
Sub main()
px = cursorX
py = cursorY
DoEvents
Do
DoEvents
For n = 0 To REACT
DoEvents
Next n
py = cursorY
px = cursorX
X = (px - Screen.Width / Screen.TwipsPerPixelX / 2) / Screen.Width * Screen.TwipsPerPixelX
vx = vx - X
px = px + vx
vx = vx * 0.995
cursorX = px
Y = (py - Screen.Height / Screen.TwipsPerPixelY / 2) / Screen.Height * Screen.TwipsPerPixelY
vy = vy - Y
py = py + vy
vy = vy * 0.995
cursorY = py
Loop
End Sub
[code]