Dim k As New Kunde()
With k
   .Name = "Hans Werner"
   .Telefon = "0234-56789"
   ' ...
End With

Dim k As New Kunde With {.Name="Hans Werner", .Telefon="0234-56789"}

Dim z = 7                    ' z wird ein Integer
Dim s = "Hallo"         ' s wird ein String
 
' Kombination aus implizite Typisierung und Objekt Initialisierer - k wird ein 
' Kunde-Objekt
Dim k = New Kunde With {.Name="Hans Werner", .Telefon="02345-56789"}

Dim P = New With {Name="DotNET Magazin", Preis=8.50}

Ralf