Public Class Form1
    Private mpos As Point
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For Each c As Control In Me.Controls
            If TypeOf c Is Label OrElse TypeOf c Is TextBox Then
                AddHandler c.MouseDown, AddressOf Control_MouseDown
                AddHandler c.MouseMove, AddressOf Control_MouseMove
            End If
        Next
    End Sub
    Private Sub Control_MouseDown(ByVal Sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        If e.Button = Windows.Forms.MouseButtons.Left Then mpos = e.Location
    End Sub
 
    Private Sub Control_MouseMove(ByVal Sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        If ModifierKeys = Keys.Control AndAlso e.Button = _
        Windows.Forms.MouseButtons.Left Then
            Dim c As Control = DirectCast(Sender, Control)
            Dim x As Int32 = Me.ClientSize.Width - c.Width
            Dim y As Int32 = Me.ClientSize.Height - c.Height
            Dim pt As New Point(c.Left + e.X - mpos.X, c.Top + e.Y - mpos.Y)
            If pt.X < 0 Then pt.X = 0 ' Rand l
            If pt.X > x Then pt.X = x ' Rand r
            If pt.Y < 0 Then pt.Y = 0 ' Rand o
            If pt.Y > y Then pt.Y = y ' Rand u
            c.Location = pt
            c.BringToFront()
        End If
    End Sub
End Class