Visual Basic - problemas con una listas esto es grave

tengo que imprimir una listas pero al imprimir salen una primero y otra des pues y si una tienes mas (contenido) que otra se cae como lo hago esto es lo que hice:
dim x as integer
dim p as integer
For x = 0 To List1.ListCount - 1
List1.ListIndex = x
Printer.Print Tab(5); List1.text
Next

For p = 0 To List2.ListCount - 1
List2.ListIndex = p
List3.ListIndex = p
List4.ListIndex = p
List5.ListIndex = p
Printer.Print Tab(56); List5.text; Tab(62); List4.text; Tab(85); list2.text; Tab(95); List3.text; Tab(102);
Next
pero tienen que imprimirse todas en un mismo renglon o en una cordenada especifica y al acerlas todas junta las 5 se cae porqeu encuentra que una tienes mas datos que el resto y ese es el problema

Que tal Una Matriz ????
por que no cargas la matriz , con ambas listas y luego las imprimes
antes de crear la matriz
identifica, cual es la que tiene mas contenido ( mas larga)

if lst1.listcount > lst2.listcount then
dim MImpresion(Lst1.count,4)
else
dim MImpresion(Lst2.count,4)
endif

y luego por medio de for next, llemar las matriz y echale a la printer...
saludos..