Copy listbox

I'm trying to copy one listbox to another in my program but haven't met with success.
Thanks to any who reply.

Code:

---

    Dim intIndex As Integer
   
    For intIndex = 0 To List1.ListCount - 1
        List2.AddItem List1.List(intIndex)
    Next

---