ツリービュー上でのドラッグANDドロップでDropHighlightしたい

解決

---

以前に、
VB.NET-ツリービュー上でのドラッグANDドロップでDropHighlightしたい。ということで、質問させていただき、教えていただいたものです。
こんどは、VB6.0で同じようなことを行いたいと思っています。

なんとかできそうなのですが、

Private Sub TreeView1_DragOver(Source As Control, x As Single, y As Single, state As Integer)
    On Error Resume Next

省略...

    xPos = x
    YPos = y
    
    Dim NodNext As Node
    ' ノード x の次のノードへの参照を取得します。
    If Treeview_y < y Then
        Set NodNext = TreeView1.HitTest(x, y).Next
        NodNext.EnsureVisible
    Else
        Set NodNext = TreeView1.HitTest(x, y).Previous
        '親がある場合は、スクロールする。
        If TreeView1.HitTest(x, y).FirstSibling = TreeView1.HitTest(x, y).Previous Then
            TreeView1.HitTest(x, y).Parent.EnsureVisible
        Else
            NodNext.EnsureVisible
        End If
        NodNext.EnsureVisible
    End If

エクスプローラのような操作感が得られないのです。
たぶんディレイを設けないといけないと思うのですが、このへんのよいサンプルなどないでしょうか？

編集    削除

---

環境を書き忘れました・

Win2000、VB6.0です。

編集    削除

---

参考になるコードがありました。
http://www.devcity.net/forums/topic.asp?tid=65017

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。