Private Sub listview1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim itemx As ListItem
Set itemx = listview1.SelectedItem
If itemx Is Nothing Then Exit Sub
MsgBox itemx.Top
MsgBox itemx.Left
End Sub
随便找个方式保存到文件或者数据库
再次add的时候
指定itemx的top及left即可
dim itemx as listitem
set itemx =listview1.add(i,,"XXX")
itemx.top=... '从相应文件读出
itemx.left=... '从相应文件读出