Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        Dim member1 = New Member()

        member1.Eligibilities = New List(Of MemberEligibility)

        ' REMARKS: List is empty

        If member1.Eligibilities.Count > 0 Then

            If member1.Eligibilities(0) Is Nothing Then

                Console.WriteLine("First element is NULL")

            End If

        End If

        ' REMARKS: Add one element to list

        member1.Eligibilities.Add(New MemberEligibility())

​

        ' REMARKS: List contains one element        

        If member1.Eligibilities.Count > 0 Then

            If member1.Eligibilities(0) IsNot Nothing Then

                Console.WriteLine("First element is initialized")

            End If

        End If

    End Sub

End Module

​

Public Class Member

    Private _eligibility As MemberEligibility

    Private _eligibilities As List(Of MemberEligibility)

    Public Sub New()

    End Sub

    Public Property Eligibility As MemberEligibility

        Get

            Return Me._eligibility

        End Get

        Set

            Me._eligibility = Value

        End Set

    End Property

    Public Property Eligibilities As List(Of MemberEligibility)

        Get

            Return Me._eligibilities

        End Get

        Set

            Me._eligibilities = Value

        End Set

    End Property

End Class

​

Public Class MemberEligibility

    Public Sub New()

    End Sub

End Class