Dim exob As Object = New ExpandoObject
 
   'Properties erstellen durch Value-Zuweisungen
   With exob
       .name = "Wer auch immer"
       .comment = "Kommentar"
       .intnumber = 10
       .decnumber = 1234D
   End With
 
   'Aktuelle Properties und deren Values von "exob" abrufen
   Dim memdic As Collections.Generic.IDictionary(Of String, Object) = _
        CType(exob, Collections.Generic.IDictionary(Of String, Object))
 
   'unstrikt:
   'Dim memdic As Collections.Generic.IDictionary(Of String, Object) = exob
 
   For Each key As String In memdic.Keys
       Dim obj As Object = memdic(key)
       Dim memtype As Type = obj.GetType
 
       Console.WriteLine _
            (key & "  " & memtype.ToString & "  " & memdic(key).ToString)
  Next key