SUBIR / BAJAR HIJOS DENTRO DE UN TREEVIEW EN VB.NET

Aqui os dejo el codigo necesario para bajar o subir de orden entre hijos de un nodo de un treeview para VB.NET. El codigo lo podeis poner dentro del evento click de un boton.

Dim parentObj As Object = trvArbol.SelectedNode.Parent             If parentObj Is Nothing Then                 parentObj = trvArbol             End If             Dim selectedNode As TreeNode = trvArbol.SelectedNode             Dim idxSelected As Integer = selectedNode.Index             Dim idxNext As Integer             If selectedNode IsNot Nothing Then                 Dim prevNode As TreeNode = trvArbol.SelectedNode.PrevNode                 If prevNode IsNot Nothing Then                     idxNext = prevNode.Index                     If TypeOf parentObj Is TreeNode Then                         CType(parentObj, TreeNode).Nodes.Remove(CType(parentObj, TreeNode).Nodes(idxSelected))                         CType(parentObj, TreeNode).Nodes.Insert(idxNext, selectedNode)                     Else                         CType(parentObj, TreeView).Nodes.Remove(CType(parentObj, TreeView).Nodes(idxSelected))                         CType(parentObj, TreeView).Nodes.Insert(idxNext, selectedNode)                     End If                     If TypeOf parentObj Is TreeNode Then                         trvArbol.SelectedNode = CType(parentObj, TreeNode).Nodes(idxNext)                     Else                         trvArbol.SelectedNode = CType(parentObj, TreeView).Nodes(idxNext)                     End If                 End If             End If