Vb.net 对象滞后于鼠标

Vb.net 对象滞后于鼠标,vb.net,Vb.net,下面的标签1左右移动。我如何让它滞后并“赶上”鼠标指针 Private xpos as integer = 10 Private Sub me_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint Dim lbl As New label lbl.Size = New System.Drawin

下面的标签1左右移动。我如何让它滞后并“赶上”鼠标指针

Private xpos as integer = 10 

    Private Sub me_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint



        Dim lbl As New label
        lbl.Size = New System.Drawing.Size(xpos, 100)

        end sub 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        lbl1.Location = New Point(MyPictureBox.PointToClient(New Point(MousePosition.X, 0)).X, 100)

看起来标签的移动与计时器而不是鼠标有关。计时器的间隔是多少?计时器的间隔是60。这与计时器可以运行的速度差不多(可靠),如果希望标签跟踪鼠标,最好使用鼠标移动事件