30.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 13 行

得到鼠标位置   
       
声明：
Private Type POINTAPI
x As Long
y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

例子：
Dim p As POINTAPI
Call GetCursorPos( p )
' ( p.x, p.y )为鼠标位置