Public Class MyNode
    Private mSection As String
    Private mName As String
    Private mBirthday As DateTime

    Public [Next] As MyNode

    Public Property Section() As String
        Get
            Return mSection
        End Get
        Set(ByVal value As String)
            If (value = String.Empty) Then
                Throw New Exception("'Alang section eh!")
            Else
                mSection = value
            End If
        End Set
    End Property
    Public Property Name() As String
        Get
            Return mName
        End Get
        Set(ByVal value As String)
            mName = value
        End Set
    End Property

    Public Property Birthday() As String
        Get
            Return mBirthday
        End Get
        Set(ByVal value As String)
            mBirthday = value
        End Set
    End Property

End Class

Public Class MyLinkedList
    Public Head As MyNode

    Public Sub New()
        Head = Nothing
    End Sub

    Public Sub AddFirst(ByVal Node As MyNode)
        Node.Next = Head
        Head = Node
    End Sub
    Public Sub InsertAfter(ByVal ThisNode As MyNode, ByVal NewNode As MyNode)

    End Sub
    Public Sub RemoveAfter(ByVal ThisNode As MyNode)

    End Sub

End Class