在标准EXE工程添加一个Timer、两个Label控件，各属性取默认值。然后给工程拷贝如下代码：
　　
　　OptionExplicit
　　
　　'申明API函数
　　PrivateDeclareFunctionGetCursorPosLib"user32"(lpPointAsPOINTAPI)AsLong
　　
　　PrivateTypePOINTAPI'声明数据类型
　　xAsLong
　　yAsLong
　　EndType
　　
　　DimzAsPOINTAPI'变量
　　
　　PrivateSubForm_Load()
　　Timer1.Enabled=True
　　Timer1.Interval=1
　　EndSub
　　
　　PrivateSubTimer1_Timer()
　　GetCursorPosz'获取坐标
　　Label1="x:"&z.x'显示x坐标
　　Label2="y:"&z.y'显示y坐标
　　EndSub->