Imports Infragistics.Win.UltraWinTree
Private Sub ultraTree1_SelectionDragStart(ByVal sender As Object, ByVal e As System.EventArgs) Handles ultraTree1.SelectionDragStart
Dim tree As Infragistics.Win.UltraWinTree.UltraTree
tree = sender
' DragDrop 操作を開始します
tree.DoDragDrop(tree.SelectedNodes, DragDropEffects.Move)
' 注: ドラッグ アンド ドロップの実装について、「UltraTree ドラッグ アンド ドロップ VB」
' サンプルを参照してください
End Sub