module1.bas

一款漂亮的控件。 快

Attribute VB_Name = "Module1"
'1、隐藏/显示鼠标。

Public Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

'2、定位鼠标。

Type rect
    sbleft As Long
    sbtop As Long
    sbright As Long
    sbbottom As Long
End Type

Public Declare Function ClipCursor Lib "user32" (lpRect As Any) As Long

'3、移动鼠标。

Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

'4、鼠标坐标。

Type POINTAPI
    x As Long
    y As Long
End Type

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

'鼠标键数。

Public Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long