VB Code:
' Declarations Section
Public Structure myListItem
Public Name As String
Public Type As String
Public Validation As String
Public Order As Int32
End Structure
Private myItemsList As ArrayList = New ArrayList
' New Sub to add and get the Items, you probably want to use separate subroutines for this.
Private Sub GetMyItemOrder()
Dim myItem As myListItem
Dim Items As Int32
For Items = 0 To 4
myItem.Name = "User" + Items.ToString
myItem.Type = "Type" + Items.ToString
myItem.Validation = ">0"
myItem.Order = Items
myItemsList.Add(myItem)
Next
myItem = myItemsList(1)
Me.TextBox1.Text = myItem.Order.ToString
End Sub