请问大大们 用vb写一个鼠标跟随的标签 怎么实现

Question

我用易语言倒是实现了 .版本 2.程序集 窗口程序集1.子程序 __启动窗口_鼠标位置被移动, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型标签1_鼠标跟随.左边 ＝ 到数值 (横向位置)
标签1_鼠标跟随.顶边 ＝ 到数值 (纵向位置)

Answer 1

Private Sub Form_Load()
    Label1.Caption = ""
    Label1.Visible = False
    
End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    With Label1
        .Caption = X & "," & Y
        .Left = X
        .Top = Y
        .AutoSize = True
        .Visible = True
    End With
    
End Sub