Visual Basic - Lista Horizontal

Buenas, tengo una duda acerca de un programa que me manda a realizar un profesor de realizar una lista con un ListBox y que este me muestre los datos de forma horizontal y no vertical como normalmente los muestra este componente, gracias de antemano

Vamos a suponer que guardas en un RecordSet (rs) todos los elementos que quieres mostrar en el listbox (lista)

Dim cadena as string
Dim rs as new adodb.recordset

If rs.RecordCount > 0 Then 'Si existen elementos
rs.MoveFirst
cadena=""
Do While Not rs.EOF
cadena=rs!elemento & space(2)
rs.MoveNext
Loop
Lista.AddItem (cadena )
End If

Ojala te sirva ...Suerte!

En la parte dentro del bucle adicionar:
cadena=cadena & rs!elemento & space(2)

En la parte dentro del bucle adicionar:

cadena=cadena & rs!elemento & space(2)

en vez de la linea original

Muchas Gracias