Dim l As List
l = ItinTV.Root.Children
For i = 0 To l.Size-1
Dim TreeItem1 As TreeItem
TreeItem1 = l.Get(i)
If TreeItem1.Text = s Then 'compare the items
Dim jo As JavaObject = ItinTV
jo.RunMethodJO("getSelectionModel", Null).RunMethod("select", Array(TreeItem1))
Return
End If
Next