Takaさん、おはようございます。
早速のコメントありがとうございます。

＞ItemPopulateイベントの中で無条件に処理を実行せずに、Item属性を調べた上で
＞処理を振り分けてはどうでしょうか。
＞
＞// 一度展開している場合は回避
＞TreeViewItem tvi
＞GetItem( Handle, tvi )
＞if tvi.ExpandedOnce then return

実は上記の様に既に記述したのですが、treeviewitemのexpandonceがfalseになっているのです。

if tvi.ExpandedOnce then return
tvi.ExpandedOnce = true
this.setitem(handle,tvi)

として、実行してもやはりfalseになってます。
記述の仕方が悪いのでしょうか？

＞あるいは、InsertItemする前処理として、存在するChildItemをすべて消去してから
＞追加するという手もあります。でもこの方法だと ItemPopulateイベントの有効利用
＞にはなりませんねぇ… (^^;

それはかなり悲しいです。(;;)