まことさん、Takaさん、こんにちは。まじめ一辺倒のkinです。
Takaさんのコメントを補足します。

＞ItemHandleとは、１つの項目のインデックス番号のことです。
＞（コントロールとしてのハンドルではありません）
＞
＞FindItem関数の引数には、現在選択されている項目の ItemHandle を与えます。
＞この「現在選択されている項目の ItemHandle」は、SelectionChanged のイベント引数
＞で取れるので、どこかに待避しておいて使うか、または
＞　tv_1.FindItem( CurrentTreeItem!, 0 )
＞によって得ることもできます。
＞
＞この ItemHandle の Long値 で、
＞　tv_1.FindItem( ParentTreeItem!, /*現在の ItemHandle */ )
＞をすればいいわけです。

これを、コマンドボタンに記述する場合には、
tv_1.FindItem( CurrentTreeItem!, 0 )を使用します。

TreeViewItem ltvi_current
long ll_tvi
long tree_handle
string test
tree_handle = tv_1.FindItem( CurrentTreeItem!, 0 )
ll_tvi = tv_1.FindItem(ParentTreeItem!, tree_handle)
if ll_tvi = -1 then  Return
　tv_1.GetItem(ll_tvi , ltvi_current)
　test = ltvi_current.data
end if

こんな感じです。Do until で回せば上位階層まで取得できますよ。