Public Class PaksWishes

    Private MembersOfDotNetZone As List(Of DNZMember)

    Private Sub MyWishesForChrismasTheNewYear(ByRef Member As DNZMember)

        Member.Health = True

        Member.HappyFamily = True

        Member.Raise = True

        Member.Promotion = True

        Member.AllYourWishesToComeTrue = True

    End Sub

    Private Sub MyWishToYou()

        For Each Member As DNZMember In MembersOfDotNetZone

            Me.MyWishesForChrismasTheNewYear(Member)

        Next

    End Sub

End Class

Public Class DNZMember

    Public Health As Boolean

    Public HappyFamily As Boolean

    Public Promotion As Boolean

    Public Raise As Boolean

    Public AllYourWishesToComeTrue As Boolean

End Class