Dim a As New NeueKlasse(Me) ' Übergibt die aktuelle Klasse als Parameter

Class Test
    Private zahl As Integer
 
    Public Sub New(ByVal zahl As Integer)
        Me.zahl = zahl ' Da zahl auch als Parameterexistiert und den 
        ' Klassenmember ausblendet
    End Public
End Class

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008