cara membuat tombol dan textbox bisa di drag

assalamualaikum sahabat blogger dan pembaca blogger
khususnya yang sedang baca blog saya ini.
saya mau bagiin tutorial cara membuat button dan textbox pada VB.NET itu bisa di drag.

untuk lebih jelas. lihat gambar ini. klik di linknya http://i.imgur.com/5eZLXNW.gif


nah, setelah lihat gambar dilink itu. udah tahu kan apa aja yang harus disiapin di VB NET
bagus kalau udah tahu.
ini sourcenya bro

#Region "Texbox Generation"
    Dim CurTextbox As Integer = 1
    Private Sub ToolStripFileAddTextBox_Click(sender As Object, e As EventArgs) Handles ToolStripFileAddTextBox.Click
  Dim txt As New TextBox
  Me.Controls.Add(txt)
  AddHandler txt.MouseDown, AddressOf txt_MouseDown
  AddHandler txt.MouseMove, AddressOf txt_MouseMove
  AddHandler txt.MouseUp, AddressOf txt_MouseUp
  AddHandler txt.MouseLeave, AddressOf txt_MouseLeave
  txt.Text = "Textbox " & CurTextbox
  txt.Name = "txt" & CurTextBox
  txt.Multiline = True
  CurTextbox += 1
    End Sub
#End Region


Drag dan resize

#Region "Texbox Dragging"
    Private txt As TextBox
    Private txtptX, txtptY As Integer
    Private Sub txt_MouseLeave(sender As Object, e As EventArgs)
  Me.Cursor = Cursors.Arrow
    End Sub
    Dim MoveMode As Boolean
    Private Sub txt_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
  If DragMode = True Then
    MoveMode = True
    If e.Button = MouseButtons.Left Then
    txt = CType(sender, TextBox)
    txtptX = e.X : txtptY = e.Y
    If e.X >= txt.Width - 10 Then
    txt.Cursor = Cursors.Cross
    Else
    txt.Cursor = Cursors.IBeam
    End If

    If e.Y >= txt.Height - 10 Then
    txt.Cursor = Cursors.Cross
    Else
    txt.Cursor = Cursors.IBeam
    End If
    End If
  End If
    End Sub

    Private Sub txt_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)

  If MoveMode = True Then
    If txt.Cursor = Cursors.Cross Then
    txt.Width = e.X
    txt.Height = e.Y
    Else
  txt.Location = New Point(txt.Location.X + e.X - txtptX, txt.Location.Y + e.Y - txtptY)
    Me.Refresh()
    End If
  End If
    End Sub

    Private Sub txt_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
  txt = CType(sender, TextBox)
  If txt.Cursor = Cursors.Cross Then
    txt.Cursor = Cursors.IBeam
  End If
  MoveMode = False
    End Sub
#End Region

ok itu aja broo
silahkan dicoba y :)