Imports System

Imports System.Reflection

​

Public Class Program

​

    Public Shared Sub Main()

        Dim p = New Person()

        For Each nestedtype in p.Gettype().GetNestedTypes()

            For Each prop in nestedtype.GetProperties(BindingFlags.Instance Or BindingFlags.Public Or BindingFlags.NonPublic Or BindingFlags.Static)

                Console.WriteLine(nestedtype.Name & " => " & prop.Name)

            Next

        Next

    End Sub

End Class

​

Public Class Person

​

    Public Property Name As String

​

    Public Property AddressDetail As Address

​

    Public Class Address

​

        Public Property Street As String

​

        Public Property CountryDetail As Country

    End Class

​

    Public Class Country

​

        Public Property CountryName As String

    End Class

End Class

​