Testcomplete中选中treeview中checkbox的方法

发现对TreeView中的checkbox的录制的脚本在回放过程中，脚本是无效的，无法选中节点。现编写函数解决此问题。
'函数
 Sub ClickCheckBox(tree, itemName) 
   Set item = tree.wItems.Item(itemName)
   x = item.TextBounds.Left - item.TextBounds.Height / 2
   y = item.TextBounds.Top + item.TextBounds.Height / 2
   Call tree.Click(x, y)
  End Sub

Sub Test1
  Dim w1
  Set w1 = Sys.Process("WindowsApplication3").Form1.WinFormsObject("treeView1")
 Call ClickCheckBox(w1, "|节点2|节点3")
End Sub