你 可 以 如 下 修 改 ListView的 MouseMove事 件 。 修 改 后 ， 用 戶 仍 可 以 用 鼠 標 拖 動 圖 標 ， 但 ListView中 圖 標 的 位 置 不 會 改 變 。 我 們 這 里 僅 禁 止 了 左 鍵 的 自 由 拖 放 ， 你 可 以 比 較 一 下 左 右 鍵 拖 放 的 不 同 。 
    Private Sub listView1_MouseMove(Button As Integer, Shift As Integer, _ 
     x As Single, y As Single) 
     If Button = vbLeftButton Then ' Signal a Drag operation. 
     ListView1.DragIcon = ListView1.SelectedItem.CreateDragImage 
     ListView1.Drag vbBeginDrag ' Drag operation. 
     End If 
    End Sub 
<END>