Protected Overridable Sub Dispose(ByVal disposing As Boolean)
      If Not Me.disposedValue Then
         If disposing Then
            ' TODO: Anderen Zustand freigeben (verwaltete Objekte).
         End If
 
         ' TODO: Eigenen Zustand freigeben (nicht verwaltete Objekte).
         ' TODO: Große Felder auf NULL festlegen.
      End If
      Me.disposedValue = True
   End Sub