Supuse que los items de esos listboxes ya eran series de números horizontales cómo en el ejemplo que pusiste, ya veo que no, pero me decepciona que a estas alturas necesites ayuda para hacer estas cosas, lo has visto hacer cientos de veces ya, jeje:
Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}
For Each lb As ListBox In lbs
ListBox1.Items.Add(String.Join(" "c, lb.Items.Cast(Of String)))
Next lb
Saludos!
Muachas gracias pero tenias un error

claro lo pude resolver no faltaba mas jejej con tus enseñanzas
Dim lbs As ListBox() = {ListBox2, ListBox3, ... ListBox60}
For Each lb As ListBox In lbs
ListBox1.Items.Add(String.Join(" "c, lb.Items.Cast(Of String))) <----aca
Next lb
error no se puede blablabala
solucion
Dim lbs As ListBox() = {ListBox2, ListBox3}
For Each lb As ListBox In lbs
ListBox67.Items.Add(String.Join(" "c, lb.Items.Cast(Of Integer))) <----yo solito lo repare
Next lb
es broma pero no me aguante para vengarme de tus regaños jejejej
gracias Elektro

Luis