Dim TextCtrl(13) As TextBox Dim xLoc1 As Integer = 10 Dim yLoc1 As Integer = 30 '-----Add textboxes as arrays For count1 As Integer = 0 To 13 Dim tb As New TextBox tb.Location = New Point(xLoc1, yLoc1) tb.Name = "TextCtrl" tb.DoDragDrop() Me.Controls.Add(tb) TextCtrl(count1) = tb '<-- This line adds the TextBox to the array. TextCtrl(count1).AllowDrop = True TextCtrl(count1).DoDragDrop(e, DragDropEffects.All) yLoc1 += 25 Next count1
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)