Public Class AltesProgramm
    Public Sub Irgendwas()
        'das hier funktioniert
        'Dim typA As Alteklasse = New AlteKlasse()
        'das hier funktioniert nicht
        Dim typA As AlteKlasse
        'mehr code
        typA = GetObject() 'GetObject sei eine Funktion, die ein Object vom Typ 
        ' NeueKlasse zurueckgibt
    End Sub
End Class
 
Public Class AlteKlasse
    Private _wrapper As NeueKlasse
    Public Sub New()
        _wrapper = New NeueKlasse()
    End Sub
 
    Public Function GetData()
        Return _wrapper.GetData()
    End Function
End Class
 
Public Class NeueKlasse
    Public Function GetData()
        Return me 'irgendwas
    End Function
End Class