Creating many objects of the same type with a for loop

I guess something like this is more correct. But I'm not sure to specify the variable i as part of the Person object name (so that each object has a unique name e.g. Person1, Person2, Person3 etc etc)

            Dim PolicyMembers As PersonCollection = New PersonCollection()
            Dim Person As Person

            For i = 2 To 10

                Dim txtLocal As TextBox

                Dim Person & i As Person = New Person
                txtLocal = CType(plhOtherInsured.FindControl("txtFirstName" & LTrim(Str(i))), TextBox)
                If Not txtLocal Is Nothing Then
                    Person & i.FirstName = txtLocal.Text
                End If

                txtLocal = CType(plhOtherInsured.FindControl("txtLastName" & LTrim(Str(i))), TextBox)
                If Not txtLocal Is Nothing Then
                    Person & i.LastName = txtLocal.Text
                End If

                PolicyMembers.Add(Person(i))

            Next

Just like that, if you want to keep them I would suggest adding them to an ArrayList, or similar:

    Dim people As New ArrayList()

    For i = 2 To 10

          Dim oPerson As Person = New Person()

          Dim txtLocal As TextBox
          txtLocal = CType(plhOtherInsured.FindControl("txtFirstName" & LTrim(Str(i))), TextBox)
          If Not txtLocal Is Nothing Then
              oPerson.FirstName = txtLocal.Text
          End If
          txtLocal = CType(plhOtherInsured.FindControl("txtLastName" & LTrim(Str(i))), TextBox)
          If Not txtLocal Is Nothing Then
              oPerson.LastName= txtLocal.Text
          End If

          '// Add the new person to our collection
          people.Add(oPerson)

     Next


Hope this helps.

Oh I see. I dont need to specifically name the Person objects. I can just create them and add them to the People collection.

Once they're in the People collection I'll be able to get at them by index?