unir varios listbox en Visual Basic 6.0

[kenrigls]

teniendo que list1= 1 2 3 4
    list2= 5 6 7 8
    y en un list3 me de como resultado 1 2 3 4 5 6 7 8

    tengo este codigo que me une list1 y list2 y el resultado me lo da en el list2
   

Código [Seleccionar] Expandir

For x = 0 To List1.ListCount - 1
    List1.AddItem List2.List(x) & vbCrLf
    Next

    quiero que me una list1 y list2 y resultado en list3


como podria hacer esto 

si no me explique bien me avisan
de ante mano gracias por sus respuestas

[79137913]

HOLA!!!

Deberias repasar lo basico, tenias el codigo practicamente hecho.

Código (vb) [Seleccionar] Expandir

For x = 0 To List1.ListCount - 1
    List3.AddItem List1.List(x)
Next
For x = 0 To List2.ListCount - 1
    List3.AddItem List1.List(x)
Next

GRACIAS POR LEER!!!

[noele1995]

79137913 solo estas metiendo el list1 xD

Código (vb) [Seleccionar] Expandir

For x = 0 To List1.ListCount - 1
    List3.AddItem List1.List(x)
Next
For x = 0 To List2.ListCount - 1
    List3.AddItem List2.List(x)
Next

Saludos

[79137913]

HOLA!!!

Oops XD error humano XD

Sorry! no reemplace bien

GRACIAS POR LEER!!!