リエッチさん、GOLFさん、お世話様です。

＞Treeviewコントロールのdragwithinイベントに記述します

ここまでは、何とか想像ついたんですがねぇ・・・

＞//--------------------------------------------------------------
＞//ドラッグが、表示されている最初の項目にきたら、１項目上にずらす
＞//--------------------------------------------------------------
＞Ll_tvi_ato = tv_1.FindItem(FirstVisibleTreeItem!, 0)
＞if handle = Ll_tvi_ato then
＞　Ll_tvi = tv_1.FindItem(previousTreeItem! , Ll_tvi_ato)

このままだと、うまくスクロールしてくれなく・・・
引数を PreviousVisibleTreeItem! にしたらうまくいったんです。
どうも前の項目がレベルが違うと -1 が返ってくる為のようでした。

＞　tv_1.SetFirstVisible (Ll_tvi)
＞　return
＞end if
＞//--------------------------------------------------------------
＞//ドラッグが、表示されている最後の項目にきたら、１項目下にずらす
＞//--------------------------------------------------------------
＞
＞Ll_tvi = tv_1.FindItem(nextvisibleTreeItem! ,handle) //次の項目が表示範囲外＝最後の項目
＞if Ll_tvi <= 0 then
＞ Ll_tvi = tv_1.FindItem(FirstVisibleTreeItem!,0)
＞ Ll_tvi = tv_1.FindItem(nextTreeItem! , Ll_tvi) //先頭の次の項目が表示域のＴＯＰにくる
＞ tv_1.SetFirstVisible (Ll_tvi)
＞end if
＞

こちらも同様の理由でうまく行かなかった為、NextVisibleTreeItem! を指定しました。

しかし、FindItem関数を駆使するとは気づきませんでした。
んー、こちらの調査不足ですね。
このスクリプト、てとらぽっとさんのHPに載せてもらえるといいですね。
結構気づきにくいような気がするんです。（って、それは僕だけ？）

本当にありがとうございました