Private Sub Form_Load()
    With lv
         .View = lvwReport
         .ColumnHeaders.Add , , "lo que sea"
         .GridLines = True
         .FullRowSelect = True
    End With
For x = 1 To 10
lv.ListItems.Add , , x
Next
lv.ListItems.Remove 3 ' elimina la posicion 3
lv.ListItems.Add 2, , "hola" 'pone entre la posicion 1 y 2 la palabra hola
Dim aux As String 'variable auxiliar
'intercambia la posicion 6 por la 9 
aux = lv.ListItems.Item(9)
lv.ListItems.Item(9) = lv.ListItems.Item(6)
lv.ListItems.Item(6) = aux
End Sub