Attribute VB_Name = "Module1"
'----------------------
'    作者：段東良
'        99.5.17
'----------------------


'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