Private Sub TvScript_OLEDragOver(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Dim nodSelected As Node
Dim nodOver As Node
Dim tv As TreeView
Set tv = Me.TvScript.Object
If tv.SelectedItem Is Nothing Then
'Select a node if one is not selected
Set nodSelected = tv.HitTest(x, y)
If Not nodSelected Is Nothing Then
nodSelected.Selected = True
End If
Else
tv.SelectedItem.Selected = True
End If
End Sub
There are some alternatives, but I'm not sure they would work with your Treeview:
www.peterssoftware.com (Drag and Dropper)
How to simulate Drag and Drop:
http://support.microsoft.com/kb/287642
http://accessblog.net/2007/04/drag-and-drop-in-access.html