Public Class Speicherung
    Implements System.IDisposable
 
    Private m_sd As SaveFileDialog
    Private m_irgendeinparameter As Object
 
    Public Sub New()
        MyBase.New()
        m_sd = New SaveFileDialog
        m_irgendeinparameter = Nothing
    End Sub
 
    Public Sub New(ByVal irgendeinparameter As Object)
        Me.New()
        m_irgendeinparameter = irgendeinparameter
    End Sub
    ' Du muss alle funktionen die Du ausserhalb sehen willst, selbst schreiben
    ' z.B.:
    Public Function ShowDialog() As String
        If m_sd.ShowDialog() = DialogResult.Cancel Then
            Return ""
        End If
        Return m_sd.FileName
    End Function
 
    Public Property DefaultExt() As String
        Get
            Return m_sd.DefaultExt
        End Get
        Set(ByVal value As String)
            ' hier könnte man noch die eingabe (value) prüfen
 
            m_sd.DefaultExt = value
 
        End Set
    End Property
 
 
    Private disposedValue As Boolean = False        ' So ermitteln Sie 
    ' überflüssige Aufrufe
 
    ' IDisposable
    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                m_sd.Dispose()
                m_sd = Nothing
            End If
 
        End If
        Me.disposedValue = True
    End Sub
 
#Region " IDisposable Support "
    ' Dieser Code wird von Visual Basic hinzugefügt, um das Dispose-Muster 
    ' richtig zu implementieren.
    Public Sub Dispose() Implements IDisposable.Dispose
        ' Ändern Sie diesen Code nicht. Fügen Sie oben in Dispose(ByVal 
        ' disposing As Boolean) Bereinigungscode ein.
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
 
End Class