Ну, что, можно только посмотреть форму, больше ничего - ошибки не хочется исправлять, попробуйте
запустить то, что здесь выложено, у себя.

Ну, что, можно только посмотреть форму, больше ничего. Это у вас. А у нас все работает. SET DEFA
TO ? - каталог, куда положили все, что в архиве. А в нем еще и таблицы есть, с данными, что бы все
было понятно как работает. Форма не главное. Menustru.prg - это она строит структурированное
дерево из вашего *.mpr файла.
Короче, смотреть нужно лучше. А если будет просить классы, то дайте ей классы из каталога VFP.
Удачи.

Неужели нельзя было выложить полноценное решение, а не какой-то наборосок, в котором надо еще и
разбираться?
Форма не работает, какого-то индекса нехватает. Так что дерева не видно.

test

Это и есть готовое решение.Просто откройте форму в среде VFP, запустите форму, нажмите на кнопку
LoadStru. Работа по дереву - двойной клик. Все. Удачи.

Форма не работает!
открывая use (dostfile) подразумевается что таблица с индексом но индекса нет! 
IF TAGCOUNT()>0
 set order to tag name_u
ELSE
 =MESSAGEBOX('файл не индексиpован!',16,'индекс')
ENDIF
в init формы ищем
IF TYPE("THIS.oleTree") # "O" OR ISNULL(THIS.oleTree)
 RETURN .F.
ENDIF
но его тоже нет.