ListView拖拉图标问题
ListView拖拉图标后，当被选中的图标被拖到一个图标（假如是A图标）的前一点的位置，鼠标放下后，那么这个选中的图标就会重新排列在A图标之前，后面就紧跟着A图标，现在问题是，如果拖过多的距离，比如我把图标拖到第一个图标之前，再往前的位置拖，ListView会留下很多空白区，如何才能把图标的上面和左面不留下空白区

代码是：

With ListView1

.Arrange = lvwAutoTop
.LabelEdit = lvwManual
.View = lvwIcon
.Icons = ImageList1

For i = 1 To 24
Call .ListItems.Add(, , "item" & i, (i Mod 2) + 1) '(i Mod 2) + 1)
Next

End With

ImageList1里放入两个图标，请大家想想办法，谢谢


[解决办法]
出来加钩子外，好像没有好方法。
http://btmtz.mvps.org/listview/lvitemdrag.zip