Private Sub ListBox1_Click()
With ListView1
.ListItems.Add , , ListBox1.List(ListBox1.ListIndex, 0)
.ListItems(.ListItems.Count).ListSubItems.Add , , ListBox1.List(ListBox1.ListIndex, 1)
.ListItems(.ListItems.Count).ListSubItems.Add , , ListBox1.List(ListBox1.ListIndex, 2)
End With
End Sub