Вопрос по TreeView (Готовый пример)

simply
Дата: 28.11.2015 15:29:04
День добрый.
Есть хороший пример по работа с TreeView в котором есть возможность "перетягивать" узлы и "детей" в узлах из узла в узел. У меня задача, которую я не смог решить, сделать запрет на перетягивание узлов с детьми оставив лишь возможность перетягивания детей из узла в узел. Спасибо.
simply
Дата: 28.11.2015 15:29:30
simply
Дата: 28.11.2015 18:08:48
Задачу решил. Спасибо.
DimVF
Дата: 29.11.2015 11:11:45
simply,

плиз, решение в студию, а то потомки неграмотными останутся
simply
Дата: 29.11.2015 15:10:47
' 'Если у текущего узла есть дочерние (28/11/2015)
If I.Children <> 0 Then
MsgBox "Нельзя перемещать группу"
Exit Function
End If
' Конец 'Если у текущего узла есть дочерние (28/11/2015 )