'Eine Struktur und eine Klasse 
    Structure sQuader
        Public Länge As Byte
        Public Breite As Byte
        Public Höhe As Byte
    End Structure
 
    Class cQuader
        Public Property Länge As Byte
        Public Property Breite As Byte
        Public Property Höhe As Byte
    End Class
 
 
 
    'Zwei Methoden mit ByVal-Parametern, lokal geändert
    Public Sub MethodeWithStrucParam(ByVal q As sQuader)
        q.Breite = 100
    End Sub
 
    Public Sub MethodeWithClassParam(ByVal q As cQuader)
        q.Breite = 100
    End Sub
 
 
    'Anwendung
 
    Dim sq As New sQuader
    Dim cq As New cQuader
 
    MethodeWithStrucParam(sq)
    MethodeWithClassParam(cq)
 
    MsgBox("Structure-Rückgabe: " & sq.Breite)  '--> 0
    MsgBox("Class-Rückgabe: " & cq.Breite)      '--> 100
 
 
    'Beispiel für ByVal/ByRef bei Klassen-Zugriffsvariable
    Public Sub MethodeWithByvalParam(ByVal q As cQuader)
        q = Nothing
    End Sub
 
 
    Public Sub MethodeWithByRefParam(ByRef q As cQuader)
        q = Nothing
    End Sub
 
    'Nur bei Aufruf der zweiten Methode (ByRef) wird q auch 
    'ausserhalb Nothing
 
    MethodeWithByRefParam((cq)) 'Jetzt nicht .....