vb求一段实时显示鼠标在显示屏位置的代码（不用timer控件的）

Question

vb求一段实时显示鼠标在显示屏位置的代码（不用timer控件的）
timer控件达不到我要的效果

Answer 1

是不是这个？
Private Declare Function GetCursorPos _
             Lib "user32" (lpPoint As pointapi) As LongPrivate Type pointapi
    X  As Integer
    Y  As IntegerEnd TypePrivate Pt  As pointapiPrivate Sub Command1_Click()
    MsgBox Pt.X & " " & Pt.YEnd Sub

Answer 2

'timer控件怎么不能达到你的效果？Private Declare Function getCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long '声明api函数 Private Type POINTAPI '声明数据类型
     X As Long
     Y As Long
 End Type
 Dim z As POINTAPI '声明变量Private Sub Form_Load()
    Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
     Dim pos As String
     getCursorPos z '获取坐标
      pos = "Pos: x:" & z.X & " y:" & z.Y '显示x坐标和y坐标
      Text1 = pos
End Sub

Answer 3

在楼上两位基础稍改一下是否可以？
Private Declare Function getCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long '声明api函数 Private Type POINTAPI '声明数据类型
     X As Long
     Y As Long
 End Type
 Dim z As POINTAPI '声明变量Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)    Dim pos As String
    getCursorPos z '获取坐标
    pos = "Pos: x:" & z.X & " y:" & z.Y '显示x坐标和y坐标
    Form1.Cls
    Print posEnd Sub

Answer 4

自己找了些代码用HOOK实现了，谢谢各位的解答