VB下获得鼠标位置

在vb里获得鼠标位置目前我知道两个方法,一个是:

Private Sub Form1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) 

在MouseMove事件中获得当前鼠标的位置.还有一个就是用API函数了,具体如下:

先声明函数和点的数据类型,

Private Type POINTAPI
        x As Long
        y As Long
End Type

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

然后就可以这样调用:

Dim Pt AS POINTAPI

GetCursorPos Pt

然后就可以用Pt.x 和Pt.y来得到x和y坐标值了.我用的时候 GetCursorPos(Pt) 这样出现错误,不能使用,只能如上面那样调用,这点得记住了.