Dim data As Vp.Impl.TestDataTree = MainTreeTree.GetTestData("all tree data")
        Dim node As Vp.Impl.TestDataTreeNode
        'loop through the root nodes 
        Dim RootNodeCount As Integer = data.GetTreeNodes().GetRootNodeCount()
        Dim i As Integer
        For i = 0 To RootNodeCount - 1
            node = data.GetTreeNodes().GetRootNodes()(i)
            'If the node has childNode then its expandable
            If node.GetChildCount() > 0 Then
                LogInfo("Node " + node.GetNode().ToString() + " is Expandable")
            Else
                LogInfo("Node " + node.GetNode().ToString() + " is Not Expandable")
            End If
        Next