LOCAL loNode, lnCnt, lcStr, loChildNode
loNode = Thisform.oTree.SelectedItem
lcStr = ''
IF VARTYPE( loNode ) = 'O'
  lcTitle = 'Child Nodes for ' + loNode.Text
  loChildNode = loNode.Child
  DO WHILE VARTYPE( loChildNode ) = 'O'
    lcStr = lcStr + loChildNode.Text + CHR( 13 ) + CHR( 10 )
    loChildNode = loChildNode.Next
  ENDDO
ELSE
  lcTitle = 'No selected node in the tree'
ENDIF
MESSAGEBOX( lcStr, 64, lcTitle  )