Treeview scrollbar again

[edderic]

Whit this code on the treeview Mouse Move Event with Drag and Drop i scroll the crollbar down ,but if i drag and drop from the botton to the begin ho set i the scrollbar scroll Up ?

Thanks

Private Sub tvwDB_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

If Button = vbLeftButton Then
mbIndrag = True
tvwDB.DragIcon = tvwDB.DragIcon
'later als er iconen zijn iconen meenemen via onderstaande code
' tvwDB.DragIcon = tvwDB.SelectedItem.CreateDragImage
tvwDB.Drag vbBeginDrag
If DragItem > Current_node Then
tvwDB.Nodes(tvwDB.Nodes.Count).EnsureVisible
End If
End If
End Sub Eric De Decker
vbg.be@vbgroup.nl