[RESOLVED] Loop to add list box items

[Astro]

Dim i As Integer
Dim x As Integer
i = List0.ListCount
x = 0
Do While Not x = i
List1.AddItem List0.ItemData(x)
x = x + 1
Loop

I got it too! Haha just saw your reply moinkhan.
Your's definitely shorter. Any pros/cons besides length of code?
Comments appreciated =P

Astro