"Odwołanie do obiektu nie jest ustawione na instancję obiektu" Próbuję dodać do listy

Question

Utworzono listę "wiadomości e-mail" obiektu, która zawiera obiekt "e-mailowy", który ma 3 parametry (adres ciąg, obiekt ciągu, ciąg Body)

Następnie chcę dodać do listy, tworząc więcej instancji "e-mail". Jednak próbowałem na tak wiele różnych sposobów i nie miałem z tym nic wspólnego.

Public Class Test 

    Public emails As List(Of Email) 

    Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

     emails(0).setAddress("Hello") 
     emails(0).setSubject("World2") 
     emails(0).setBody("Why don't you work?") 
     emails.Add(New Email("Hello2", "World2", "Why don't you work?2")) 

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
     Label1.Text = emails(0).getAddress 
     Label2.Text = emails(0).getSubject 
     Label3.Text = emails(0).getBody 

     Label4.Text = emails(1).getAddress 
     Label5.Text = emails(1).getSubject 
     Label6.Text = emails(1).getBody 
    End Sub 
End Class 

Po kliknięciu przycisku 1 pojawia się błąd "Odwołanie do obiektu nie jest ustawione na wystąpienie obiektu".

Dzięki.

Answer 1

Nie stworzyłeś instancji listy, zadeklarowałeś ją tylko.

Public emails As New List(Of Email) 
'    ^^^