moving controls

See more:

VB

I want to drag and drop multiple textboxes at runtime to a frame which is placed on form.
i am move drag or drop only one control at a time. but i want that multiple controls has to drag and drop at a time

this is code iam using for moving single controls

Dim cordinates As Point
   Dim i As Integer
   Dim cbCount As Integer
   Private Sub Control_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) 'Handles Button1.MouseDown
       cordinates = New Point(-e.X, -e.Y)  'Holds controls X Y Coordinates while mouse is down
   End Sub
   Private Sub Control_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) ' Handles Button1.MouseMove

       If e.Button = Windows.Forms.MouseButtons.Left Then
           Dim ControlPosition As Point = Me.PointToClient(MousePosition)
           ControlPosition.Offset(cordinates.X, cordinates.Y)
           sender.Location = ControlPosition
       End If
   End Sub