Public Class Form1
    Dim mouseX, mouseY As Integer
    Dim box As Label

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        box = New Label
        box.Size = New Size(50, 50)
        box.Location = New Point(125, 125)
        box.BackColor = Color.Yellow
        box.BorderStyle = BorderStyle.FixedSingle
        AddHandler box.MouseMove, AddressOf Nudge
        Controls.Add(box)
    End Sub
    Public Sub Nudge(ByVal sender As Object, ByVal e As EventArgs)
        Dim m As Point = Me.PointToClient(MousePosition)
        mouseX = m.X
        mouseY = m.Y
        If mouseX >= box.Location.X And mouseX <= box.Location.X + 10 And mouseY >= box.Location.Y + 10 And mouseY <= box.Location.Y + box.Size.Height - 10 Then
            box.Location = New Point(box.Location.X + 1, box.Location.Y)

        End If
    End Sub

End Class