在很多的作图软件中都有一个小的区域显示当前屏幕上的光标位置，这利用API函数非常容易做到，下面的例子将演示使用代码如何返回当前光标的XY的坐标值。
＇在VB5中建立一个新项目文件，FORM1使用默认设置. 选择菜单的“Project/add Module”，建立一个新的模块文件“Moudule1”。
＇输入以下代码声明API函数?
Option Explicit
Type POINTAPI ＇ Declare types
x As Long
y As Long
End Type
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long ＇ Declare API
＇把焦点移到FORM1，添加两个标签对象（Label）和一个计时器对象（Timer1），把计时器的Interval属性设为1，然后双击FORM1的任何区域，在代码窗口中输入：
Option Explicit
Dim z As POINTAPI ＇ 声明变量
Private Sub Timer1_Timer()
GetCursorPos z ＇ 得到坐标
Label1 = "x: " & z.x ＇ 得到X坐标
Label2 = "y: " & z.y ＇ 得到Y坐标
End Sub
＇按F5运行程序，移动鼠标注意观察两个标签对象的变化。