Editing xmlnode element name on treeview

Bunuda 2 gündür bulamadım, sonunda yine kendim yaptım

Private Sub treeView1_AfterLabelEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.NodeLabelEditEventArgs) Handles treeView1.AfterLabelEdit
        If e.CancelEdit = True Then
            Return
        End If
        If e.Label Is Nothing Or e.Label.Length < 1 Then
            e.CancelEdit = True
            Return
        End If
        Dim label As System.Xml.XmlNode = currentNode 'seçili xmlnode
        If label.NodeType = XmlNodeType.Element Then
            Dim TmpXmlNode As XmlNode = doc.CreateElement(e.Label)
            TmpXmlNode.InnerXml = label.InnerXml
            If Not label.Attributes Is Nothing Then
                For Each a As XmlAttribute In label.Attributes
                    TmpXmlNode.Attributes.Append(a.Clone)
                Next
            End If
            label.ParentNode.ReplaceChild(TmpXmlNode, label)
            doc.Save(XmlFileName)
            End If
End Sub