Ну я недавно сталкивался с этой проблемой. Решил при помощи рекурсивных вызовов (ведь потомки могут иметь в свою очередь потомков, а те тоже и так далее). Вроде работает.
Просто привожу всю процедуру, вписав некоторые комментарии.
--------------------------------------------------------------------------
Private Sub TreeCheck4Children(xNode As Node)
Dim xSubNode As Node
Dim i As Integer

On Error GoTo SubErr

детей нет - заканчиваем сразу
If xNode.Children < 1 Then Exit Sub
ловим первого потомка
Set xSubNode = xNode.Child
его индекс в дереве
i = xSubNode.Index
первый потомок получает значение родителя
xSubNode.Checked = xNode.Checked
здесь рекурсивно вызывается эта же проца на случай, если у него тоже есть потомки
If xSubNode.Children > 0 Then
Call TreeCheck4Children(xSubNode)
End If
это у нас полностью обработан первый потомок с его потомками (если имеются) и потомками потомков (опять же если имеются)
.........................................................................
теперь в цикле таким же точно образом обрабатываем всех его родичей
- это ведь остальные прямые потомки нашего узелка,
рекурсивно проверяя и обрабатывая потомков этих родичей
While i <> xSubNode.LastSibling.Index
DemoTree.Nodes(i).Next.Checked = xNode.Checked

If DemoTree.Nodes(i).Next.Children > 0 Then
Call TreeCheck4Children(DemoTree.Nodes(i).Next)
End If

i = DemoTree.Nodes(i).Next.Index
Wend

SubEnd:
Exit Sub
SubErr:
Debug.Print ("Fehler in TreeCheck4Children@" & UserControl.Name & Err.Description)
RaiseEvent Failed(Array("TreeCheck4Children.vrWizStatDisassemble.WizStatDisassemble.ocx", Err.Number, Err.Description, Err.Source))
Resume SubEnd
End Sub

прошу прощения за форматирование. сожралось как всегда. но разобраться думаю сможешь. успехов.

А если не секрет, это что за язык в твоём тривью?