listView 如何实现行的上下移动

Question

方法1：   
  上下两个节点交换一下内容   
    
  方法2：   
  先取得选中的节点：   
  Dim   item   As   ListViewItem   =   Me.ListView1.SelectedItems(0)   
  Dim   index   As   Integer   =   Me.ListView1.SelectedItems(0).Index   
    
  然后删除该节点：   
  ListView1.Items.Remove(item)   
    
  重新插入该节点：   
  如果上移：ListView.Items.Insert(index-1,item)   
    
  如果下移：ListView.Items.Insert(index+1,item)