Public Class Form1
    Public Class Person
        Public fornavn As String
        Public etternavn As String
        Public adresse As String
        Public fdato As String
        Public epost As String
        Public tlf As Integer

        Public Sub New(ByVal etFornavn As String, ByVal etEtternavn As String, ByVal enAdresse As String, ByVal enFdato As String, ByVal enEpost As String, ByVal etTlf As Integer)
            fornavn = etFornavn
            etternavn = etEtternavn
            adresse = enAdresse
            fdato = enFdato
            epost = enEpost
            tlf = etTlf
        End Sub

        Public Overridable Function ToString()
            Return "PERSON: " & "Navn: " & fornavn & " " & etternavn & " Adresse: " & adresse & " Fødselsdato: " & fdato & " Epost: " & epost & " Telefonnummer: " & tlf
        End Function
    End Class

    Public Class student
        Inherits Person

        Public aarskull As Integer
        Public studieretning As String

        Public Sub New(ByVal etFornavn As String, ByVal etEtternavn As String, ByVal enAdresse As String, ByVal enFdato As String, ByVal enEpost As String, ByVal etTlf As Integer, ByVal etAarskull As Integer, ByVal enStudieretning As String)

            MyBase.New(etFornavn, etEtternavn, enAdresse, enFdato, enEpost, etTlf)

            aarskull = etAarskull
            studieretning = enStudieretning
        End Sub
        Public Overrides Function ToString()
            'Return MyBase.LagString() & " " & aarskull & " " & studieretning
            Return "STUDENT: " & "Navn: " & fornavn & " " & etternavn & " Årskull: " & aarskull & " Studieretning: " & studieretning & " Adresse: " & adresse & " Fødselsdato: " & fdato & " Epost: " & epost & " Telefonnummer: " & tlf
        End Function

    End Class

    Public Class ansatt
        Inherits Person

        Private stilling As String
        Private lønnstrinn As Integer

        Public Sub New(ByVal etFornavn As String, ByVal etEtternavn As String, ByVal enAdresse As String, ByVal enFdato As String,
                       ByVal enEpost As String, ByVal etTlf As Integer, ByVal enStilling As String, ByVal etLønnstrinn As Integer)

            MyBase.New(etFornavn, etEtternavn, enAdresse, enFdato, enEpost, etTlf)
            stilling = enStilling
            lønnstrinn = etLønnstrinn

        End Sub

        Public Overrides Function ToString()
            Return "ANSATT: " & "Navn: " & fornavn & " " & etternavn & " Stilling: " & stilling & " Lønnstrinn: " & lønnstrinn & " Adresse: " & adresse & " Fødselsdato: " & fdato & " Epost: " & epost & " Telefonnummer: " & tlf
        End Function
    End Class

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim liste As New ArrayList()

        liste.Add(New student("Ole", "Valla", "Studentveien 1", "20.12.1988", "olevalla@gmail.com", "12345671", "2016", "IDRI1001"))
        liste.Add(New student("Heidi", "Påsan", "Studentveien 2", "21.12.1988", "heidipåsan@gmail.com", "12345672", "2016", "IDRI1001"))
        liste.Add(New student("Peter", "Pan", "Studentveien 3", "22.12.1988", "peterpan@gmail.com", "12345673", "2016", "IDRI1001"))
        liste.Add(New student("Roger", "Rabbit", "Studentveien 4", "23.12.1988", "rogerrabbit@gmail.com", "12345674", "2016", "IDRI1001"))
        liste.Add(New student("Snakkes", "Aldri", "Studentveien 5", "24.12.1988", "snakkesladri@gmail.com", "12345675", "2016", "IDRI1001"))
        liste.Add(New ansatt("Arrays", "Suger", "Studentveien 6", "25.12.1988", "arrayssuger@gmail.com", "12345676", "Homie", "10"))
        liste.Add(New ansatt("Arrays", "Blows", "Studentveien 7", "26.12.1988", "arraysblows@gmail.com", "12345677", "PartyAdvisor", "20"))
        liste.Add(New ansatt("Arrays", "Sucks", "Studentveien 8", "27.12.1988", "arrayssucks@gmail.com", "12345678", "Programmeringsekspert", "30"))
        liste.Add(New Person("Arrays", "Rocks", "Studentveien 9", "28.12.1988", "arraysrocks@gmail.com", "12345679"))
        liste.Add(New Person("Arrays", "Destroys", "Studentveien 10", "29.12.1988", "arraysdestroys@gmail.com", "12345670"))

        For Each i As Person In liste
            ListBox1.Items.Add(i.ToString())
        Next

        'Dim Ole As New student("Ole", "Valla", "Studentveien 1", "20.12.1988", "olevalla@gmail.com", "12345678", "2016", "IDRI1001")

        'ListBox1.Items.Add(Ole.LagString())

    End Sub
End Class