Option Infer Off
Option Strict Off   'wg. Late Binding
Imports System.Dynamic
 
'http://msdn.microsoft.com/en-us/library/system.dynamic.expandoobject.aspx
 
Public Class frmDynamicObjectDemo
 
    Dim exob As Object = New ExpandoObject
 
    Private Sub frmDynamicObject_Load(sender As System.Object, _
                    e As System.EventArgs) Handles MyBase.Load
 
        'Zwei Properties erstellen
        exob.comment = "Dynamic Property"
        exob.comment &= " Late Binding"
        exob.number = 10
        exob.number += 30
 
        MsgBox("Number: " & exob.number.ToString & "  Comment: " & exob.comment)
 
        Dim vl As Integer = exob.number
 
        'Wechsel der Datentypen bei Zuweisung
        exob.number = "Ich war eine Nummer, jetzt bin ich ein String !"
        exob.comment = 8000 / 2
        exob.comment -= 1000
 
        MsgBox("Number: " & exob.number & "  Comment: " & exob.comment)
 
        'Dim vl As Integer = exob.number (Ausnahme)
    End Sub
End Class