Public Function ClickTreeNode(treeConterH, nodeVal)

    colCount = treeConterH.Object.Columns.Count


    Dim targetNode

    Dim fildName


    For i = 0 to  colCount - 1

        fildName = treeConterH.Object.Columns.Item(i).FieldName

        treeConterH.Object.Columns.ColumnByFieldName(fildName).OptionsColumn.AllowEdit = true

        treeConterH.Object.Columns.ColumnByFieldName(fildName).OptionsColumn.ReadOnly = false

'        MsgBox(fildName)

'        MsgBox(nodeVal)

         Set targetNode = treeConterH.Object.FindNodeByFieldValue(fildName, nodeVal)

    Next

    treeConterH.Object.SetFocusedNode targetNode


    treeConterH.Object.OptionsBehavior.Editable = true

    treeConterH.Object.ShowEditor


    '"{X=21,Y=2}"

    location = treeConterH.Object.ActiveEditor.Location

    location =  replace(replace(replace(location, "{X=",""), "Y=", ""), "}", "")

    iX = Split(location, ",")(0)

    iY = Split(location, ",")(1)


    For i = 0 to  colCount - 1

        treeConterH.Object.Columns.ColumnByFieldName