display data in flex grid

[angelagke]

how do display the data in flex grid after i extend the child of parent tree view? my coding had error after i extend the child of tree view Private Sub treeMain_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) ' Dim objNode As Node ' ' Selecting the next node ' objNode = treeMain.HitTest(x, y) ' Selecting the first parent node if not is selected If treeMain.HitTest(x, y).Key = "" Then treeMain.SelectedItem = treeMain.Nodes(1) treeMain.SelectedItem.Selected = True End If While treeMain.SelectedItem Is Nothing Debug.Print "Waiting" DoEvents Wend Debug.Print "treeMain_MouseDown" & CStr(Button) & treeMain.SelectedItem.Key treeMain.SelectedItem.Selected = True treeMain.SelectedItem.Expanded = True If treeMain.SelectedItem.Parent Is Nothing Then treeMain.DragMode = ccOLEDragManual Else treeMain.DragMode = ccOLEDragAutomatic End If End Sub Thanks :) angela