Public Class Student
    Implements IDisposable 'definiert eine methode zur freigabe der 
    ' definierten, nicht verwalteten ressourcen
    Private myName As String 'eine lokale variable für die eigenschaft 'Name'
    Private myAlter As Integer 'eine lokale variable für die eigenschaft 'Alter'
    Sub New() 'standard Konstruktor
        Name = "keine angabe"
        Alter = -1
    End Sub
 
    Sub New(ByVal cName As String)
        Name = cName
        Alter = -1
    End Sub
 
    Sub New(ByVal nAlter As Integer)
        Name = "keine angaben"
        Alter = nAlter
    End Sub
    Sub New(ByVal cName As String, ByVal nAlter As Integer)
        Name = cName
        Alter = nAlter
    End Sub
 
    Public Property Name() As String 'deklaration der eigenschaft Name
        Get ' wird aufgerufen wenn die eigenschaft ausgelesen wird
            Return myName
        End Get
        Set(ByVal Value As String) 'wird aufgerufen wenn die eigenschaft 
        ' geändert wird
            myName = Value
        End Set
    End Property
 
    Public Property Alter() As Integer
        Get
            Return myAlter
        End Get
        Set(ByVal Value As Integer)
            myAlter = Value
        End Set
    End Property
 
    Public Overloads Sub Dispose() Implements System.IDisposable.Dispose ' 
    ' Dispose-Destruktor
        Dispose(True) 'hier wird der eigene konstruktor aufgerufen  - siehe 
        ' unten
        GC.SuppressFinalize(Me) 'damit verhindert man dass das system die 
        ' Finalize-Methode für das objekt aufruft 
        'GC - steuert den Garbage Collector, ein dienst der den nicht benutzten 
        ' speicher freigibt
    End Sub
    Protected Overridable Overloads Sub Dispose(ByVal disposing As Boolean) ' 
    ' Eigener Dispose-Destruktor
        If disposing Then
            'hier kann man andere objekte zerstören indem man den Destruktor 
            ' aufruft
        End If
        'hier werden eigene objekte zerstört
        Name = Nothing
        Alter = Nothing
    End Sub
 
    Protected Overrides Sub Finalize() 'Finalize-Destruktor
        Dispose(False)
    End Sub
 
End Class