Public Function ShowDialog() As DialogResult
        Dim result As DialogResult
        fb.Description = Me.Description
        'fb.StartLocation = FolderBrowserFolder.MyComputer
        fb.StartLocation = HauptForm.f.fbReturnPath
        result = fb.ShowDialog()
        If (result = DialogResult.OK) Then
            fbReturnPath = fb.DirectoryPath
        Else
            fbReturnPath = ""
        End If
        Return result
    End Function