Runaway Cursor

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

sumit

Version Compatibility: Visual Basic 6

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Type POINTAPI X As Long y As Long End Type Private Declare Function SetCursorPos Lib "user32" _ (ByVal X As Long,ByVal y As Long) As Long Private Declare Function GetCursorPos Lib "user32" _ (lpPoint As POINTAPI) As Long

Code: