VON

GetCursorPos 讀取滑鼠座標

宣告 
Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (ByRef lpPoint As POINTAPI) As Integer

結構宣告
Structure POINTAPI
        Dim x As Integer
        Dim y As Integer
End Structure

呼叫範例：
Dim p As POINTAPI 
GetCursorPos(p)

p.x = 滑鼠的x座標
p.y = 滑鼠的y座標