Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim uno As New Person("Numero", "Uno","Wayville","12/12/1012", "Numerouno@gmail.com", 12345678)
        Dim dos As New Person("Numero","dos","Heyville","01/01/2011", "Numerodos@gmail.com", 12876543)
        Dim tres As New Student("Numero", "tres", "Dudeville", "05/05/2005", "Numerotres@gmail.com", 12346578, 2015, "Juss")
        Dim quatro As New Ansatt("Numero", "quatro", "sickville", "09/09/2009", "numeroquatro@gmail.com", 99999999, "Rektor", 45)

    'MsgBox(tres.ToString)
    Try
        Dim liste As New ArrayList()
        liste.Add(uno.ToString)
        liste.Add(dos.ToString)
        liste.Add(tres.ToString)
        liste.Add(quatro.ToString)

        ListBox1.Items.Clear()
        Dim indeks As Integer
        For indeks = 0 To liste.Count - 1
            ListBox1.Items.Add(liste(indeks))
        Next

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    Ens Sub
End Class