Change your

.ADD('Message1'+'_'+'0000',tvwChild,al3parnt.ckey,TRIM(al3Parnt.cSelf))

line to

oNode = .ADD('Message1'+'_'+'0000',tvwChild,al3parnt.ckey,TRIM(al3Parnt.cSelf))

and then add the line

oNode.Expanded = .T.

after the point where you know its children have been added.

Untested, but I think it's close.

cheers
SNIP