Public Function Ablagemaske(ByVal Form_Use As Frm_Use, ByVal Ablage As _
   ABLAGERow) As ABLAGERow
        'kein aktueller Datensatz in der BindingSource gewählt/vorhanden
        If Ablage Is Nothing Then Return Nothing
 
        Using Editor As New frmAblage
 
            With Editor
                .Bearbeiten = Form_Use
                Select Case Form_Use
                    Case Frm_Use.Bearbeiten
                        .IDTextBox.Text = CInt(Ablage.ID)
                        .AblagenameTextBox.Text = Convert.ToString( _
                          Ablage.AblageName)
                    Case Frm_Use.Neu
                        .AblagenameTextBox.Select()
                End Select
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    ' hier hole ich die Daten der Form ab. 
                    ' Sobald da das OK zurückkommt
                    Ablage.AblageName = CStr(.AblagenameTextBox.Text).ToString
 
                    Else
                        Ablage.AblageName = CStr( _
                          .AblagenameTextBox.Text).ToString
                    End If
 
                    If Form_Use = Frm_Use.Neu Then
                        ' Status setzen
                        ReturnStatus = Frm_Use.Neu
                    Else
                        ReturnStatus = Frm_Use.Bearbeiten
                    End If
 
            End With
        End Using
 
        Return Ablage
    End Function