Public Class Form1

    Dim oldlocation As Point

    Dim oldposition As Point

    Private Sub Label1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown

        oldposition = Cursor.Position

        oldlocation = Label1.Location

        Timer1.Enabled = True

        Timer1.Tag = True

    End Sub

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

        If Timer1.Tag = True Then

            Label1.Location = New Point(oldlocation.X + Cursor.Position.X - oldposition.X, oldlocation.Y + Cursor.Position.Y - oldposition.Y)

        End If

    End Sub

    Private Sub Label1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseUp

        Timer1.Enabled = False

        Timer1.Tag = False

    End Sub

End Class