Dim oItem As ListItem
Dim i As Long
 
With ListView1
  Set oItem = ListView1.SelectedItem
  .ListItems.Add 1, "~temp", oItem.Text
  For i = 1 To .ColumnHeaders.Count - 1
    .ListItems(1).SubItems(i) = oItem.SubItems(i)
  Next i
  .ListItems.Remove oItem.Index
  .ListItems(1).Key = oItem.Key
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de