Используйте список для добавления и перебора объектов в классе

---

Привет Действительно застрял с этим, и я новичок в ООП. Я новичок, создал класс и хочу хранить каждый объект в списке, а не в массиве. Список даст мне больше методов для игры, и мне не нужно указывать его размер. Вот что у меня есть:

Public Class STUDENT
       'establish properties / members
       Public firstname As String
       Public surname As String
       Public DOB As Date
   End Class

   'declare a variable of the data type above to put aside memory

   Dim students As New List(Of STUDENT)
   Dim tempStudent As New STUDENT()


   Sub Main()
       Dim selection As Char
       While selection <> "C"
           Console.WriteLine("Welcome to student database")
           Console.WriteLine("Number of tempStudent: " & students.Count)
           Console.WriteLine(" (A) Add a student")
           Console.WriteLine(" (B) View a student")
           Console.WriteLine(" (C) Quit")


           selection = Console.ReadLine.ToUpper

           If selection = "A" Then

               Console.Write("Please enter a firstname: ")
               tempStudent.firstname = Console.ReadLine()

               Console.Write("Please enter a surname: ")
               tempStudent.surname = Console.ReadLine()

               Console.Write("Please enter a date of birth: ")
               tempStudent.DOB = Console.ReadLine()

               students.Add(tempStudent)
               Console.WriteLine("Student entered!")
               Console.ReadLine()
               Console.Clear()


           ElseIf selection = "B" Then

               For Each temp In students
                   Console.WriteLine("Student firstname: " & temp.firstname)
                   Console.WriteLine("Student surname: " & temp.surname)
                   Console.WriteLine("Student date of birth: " & temp.DOB)
                   Console.ReadLine()
               Next
               Console.Clear()
           Else
               'Quit the application
               End

           End If
       End While

Программа запустится и позволит мне сохранить, например, 2 записи, но когда я использую для каждой (нажав опцию B), она показывает только последнюю запись, которую я ввел.

Что я уже пробовал:

Не могу найти простой пример в интернете, который я мог бы адаптировать или помочь мне понять, как список будет работать в этом контексте. Не могу быть уверен, что запись перезаписывается из него Мой для каждого цикла не имеет индекса, так сказать

---