Mehrere Spalten aus LB in eine andere LB kopieren

Hallo VBAler,
ich möchte aus einer Listbox mehrpaltige Werte selektieren und dann per button in eine anderer LB untereinander kopieren. Bei diesem Makro wird nur der erste Wert kopiert. Ich finde den Fehler nicht....Weiß jmd eine Lösung?
Dim lngRow As Long, lngColumn As Long
if ListBox1.Selected(lngRow) Then
ListBox3.AddItem
For lngColumn = 0 To 3
ListBox3.List(ListBox3.ListCount - 1, lngColumn) = ListBox1.List(lngRow, lngColumn)
Next
End If