dim tempdata As Person
tempdata.First ="Smith"
tempdata.Second ="John"
tempdata.age =22
List1.Add (tempdata)
dim tempdata As Person
tempdata.First ="Marry"
tempdata.Second ="Lin"
tempdata.age =18
List1.Add (tempdata) 'Adds a second value at the end of the list
dim tdata as person =List1.Get(0)
' ...
dim tdata as person =List1.Get(1)