★　マウスのドラッグでコントロールを移動する
　
Public Class Form1 

Private TextBoxNewSize As Size  '移動位置の保存用変数

Private Sub TextBox1_MouseDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
   If e.Button = System.Windows.Forms.MouseButtons.Left Then
      'ドラッグ開始時点の位置を取得
      TextBoxNewSize = New Size(e.X, e.Y)
   End If
End Sub

Private Sub TextBox1_MouseMove(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseMove
   If e.Button = System.Windows.Forms.MouseButtons.Left Then
      'ドラッグ中の位置情報を取得して、その位置に表示
      TextBox1.Location = Point.op_Subtraction( _
            Me.PointToClient(System.Windows.Forms.Cursor.Position), TextBoxNewSize)
   End If
End Sub

End Class