Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub btnAdd_Click(sender As System.Object, e As System.EventArgs) _
      Handles btnAdd.Click
        Dim N As String
        N = txtAdd.Text
        If txtAdd.Text = String.Empty Then Return
 
        If trvTree.SelectedNode Is Nothing Then
            trvTree.Nodes.Add(N, N)
        Else
            trvTree.SelectedNode.Nodes.Add(N, N)
        End If
        txtAdd.Text = String.Empty
        trvTree.ExpandAll()
    End Sub
 
    Private Sub trvTree_AfterSelect(sender As Object, e As TreeViewEventArgs) _
      Handles trvTree.AfterSelect
        txt_Selected_Node.Text = e.Node.Text
    End Sub

 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