چگونه می شود گزینه های یک ListBox را در یک ListBox دیگر کپی کرد؟

[mmssoft]

دوستان یه سوالی داشتم. می خواستم بدونم چه طوری می شه گزینه های یک ListBox رو تو یک ListBox دیگه کپی کرد؟
مثلا توی فرم دو تا لیست باکس داریم و تو یکیش چند تا گزینه هست و می خواهیم با کلیک بر روی دکمه ای همه گزینه های درون List1 به List2 کپی بشه. باید چی کار کنیم؟

[xxxxx_xxxxx]

For i = 0 To List1.ListCount - 1

   List2.AddItem List1.List(i)

   List1.ListIndex = List1.ListIndex + 1

Next i