Module Module1

    Sub Main()
        Dim NewLL As New MyLinkedList
        Dim Node As New MyNode


        Node.Name() = "Lovely"
        Node.Section() = "Photon"
        Node.Birthday() = CDate("9-sep-1990")
        NewLL.AddFirst(Node)

        Node = New MyNode
        Node.Name() = "Cheska"
        Node.Section() = "Photon"
        Node.Birthday() = CDate("19-jun-1990")
        NewLL.AddFirst(Node)

        Node = New MyNode
        Node.Name() = "Joshua"
        Node.Section() = "Glon"
        Node.Birthday() = CDate("1-nov-1990")
        NewLL.AddFirst(Node)

        Node = NewLL.Head

        Do Until IsNothing(Node)
            Console.WriteLine(Node.Name)
            Node = Node.Next
        Loop
        
        Console.WriteLine("Done")
        Console.ReadLine()

    End Sub

End Module