Private Sub CommandButton4_Click()
If ListBox2.ListIndex = -1 Then Exit Sub
With ListView1
For i = 0 To ListBox2.ListCount - 1
If ListBox2.Selected(i) = True Then
.ListItems.Add , , ListBox2.List((i), 0)
.ListItems(.ListItems.Count).ListSubItems.Add , , ListBox2.List((i), 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , ListBox2.List((i), 2)
.ListItems(.ListItems.Count).ListSubItems.Add , , ListBox2.List((i), 3)
.ListItems(.ListItems.Count).ListSubItems.Add , , ListBox2.List((i), 4)
End If
Next i
End With
End Sub