VB获取任意时刻鼠标位置：界面如下：代码如下：（注意： Timer 的间隔设置为100）Private Declare Function GetCursorPos Lib “user32“ (lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Private Sub Timer1_Timer() Dim p As POINTAPI GetCursorPos p label2.Caption = p.x & “,“ & p.y End Sub Private Sub Command1_Click() Unload Me End Sub 运行效果如下：