Public Class frmNodeNavigation_RenameNode
    ''' <summary>
    ''' Die initiale Beschriftung des Knotens – vor dem Öffnen setzen.
    ''' </summary>
    Public Property NodeCaption As String = ""

    ''' <summary>
    ''' Die neue Beschriftung nach erfolgreichem Umbenennen.
    ''' </summary>
    Public Property NewNodeCaption As String = ""
    Private Sub frmNodeNavigation_RenameNode_Load(sender As Object, e As EventArgs) Handles Me.Load
        txtNode_Caption.Text = NodeCaption
    End Sub

    Private Sub txtNode_Caption_EditValueChanged(sender As Object, e As EventArgs) Handles txtNode_Caption.EditValueChanged
        btnRename.Enabled = Not String.IsNullOrWhiteSpace(txtNode_Caption.Text)
    End Sub

    Private Sub btnRename_Click(sender As Object, e As EventArgs) Handles btnRename.Click
        NewNodeCaption = txtNode_Caption.Text.Trim()
        Me.DialogResult = DialogResult.OK
        Me.Close()
    End Sub
End Class