با تشکر از خیل عظیم دوستان پاسخگو !!!!
بعد از مدتها جستجو بالاخره جوابم رو تو یه سایت لاتین پیدا کردم
اینجا مینویسم تا آیندگان از آن بهره برند:
جالبه خودم سوال رو مطرح کردم پیگیری کردم و جواب دادم به قول شاعر:
خود گویی و خود خندی / عجب مرد هنرمندی
یا به عبارتی:
خود پرسی و خود جواب دهی / عجب سایت هنرمندی
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MoveNodeUp(TreeView1.SelectedNode)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MoveNodeDown(TreeView1.SelectedNode)
End Sub
Public Sub MoveNodeUp(ByVal Nod As TreeNode)
Try
If Not (Nod.PrevNode Is Nothing) Then
Nod.Parent.Nodes.Insert(Nod.Index - 1, CType(Nod.Clone, TreeNode))
Nod.Remove()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Public Sub MoveNodeDown(ByVal Nod As TreeNode)
Try
If Not (Nod.NextNode Is Nothing) Then
Nod.Parent.Nodes.Insert(Nod.Index + 2, CType(Nod.Clone, TreeNode))
Nod.Remove()
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub