Public Function GetFields(ByVal Objects As Object) As FieldInfo()
Dim Types As Type = Objects.GetType()
Dim Fields() As FieldInfo = Types.GetFields( _
BindingFlags.GetField Or _
BindingFlags.Public Or _
BindingFlags.Instance Or _
BindingFlags.DeclaredOnly)
Return Fields
End Function