VB.NET function to get a Dictionary of the names and values of the properties of a given object

GetDictionaryOfProperties.vb

Option Strict On
Option Explicit On

Imports System.Reflection

Module Gists

    Public Function GetDictionaryOfProperties(ByRef o As Object) As Dictionary(Of String, Object)
        Dim Properties As Dictionary(Of String, Object) = New Dictionary(Of String, Object)
#If Not USE_LOOP
        Properties = (From x In o.GetType().GetProperties()
                      Select x).ToDictionary(Of String, Object) _
                      (Function(x As PropertyInfo) (x.Name), ' Get string key from property name
                       Function(x As PropertyInfo) (x.GetGetMethod().Invoke(o, Nothing))) ' Get object value
#Else
        ' Equivalent loop version of the same thing
        Dim PropertyInfos As PropertyInfo() = o.GetType().GetProperties() ' Get array of property infos
        For Each x As PropertyInfo In PropertyInfos ' Step through each of the property infos
                Dim PropertyName As String = x.Name ' Get string key from property name
                Dim PropertyValue As Object = x.GetGetMethod().Invoke(o, Nothing) ' Get object value
            Properties.Add(PropertyName, PropertyValue)
        Next
#End If
        Return Properties
    End Function

End Module