Public Class clsBenutzer
 
    Private _name As String = ""
    Private _id As Integer = -1
 
    Public Sub New(ByVal Name As String, Id As Integer)
 
        _name = Name
        _id = Id
 
    End Sub
 
    Public ReadOnly Property Name As String
        Get
            Return _name
        End Get
    End Property
End Class
 
 
 
Public Class clsSQLZugriff
 
    Private _Benutzer As clsBenutzer
 
    Public Sub New(ByVal Benutzer As clsBenutzer)
        _Benutzer = Benutzer
    End Sub
 
End Class

    'Instanz der Benutzerklasse erstellen
    Dim Benutzer As New clsBenutzer("Shaggy", 1)
 
    'Referenz auf die Instanz der Benutzerklasse an 
    'die neue Instanz der SQLZugriffsklasse übergeben
    Dim SQLZugriff As New clsSQLZugriff(Benutzer)