Visual Basic - Cargar datos en listbox con dos columnas

Hola:
Haber si alguien me puede ayudar.
En visual basic 4.0 tengo un listbox en un formulario. Al mismo quiero añadir 2 columnas en una el nombre y en otra el dni. Puse la propiedad columns=2 pero no consigo cargar los datos en las dos columnas utilizando el método additem. Alguien me puede ayudar?
Gracias de antemano

visual basic 4.0?

de donde lo sacaste, del baul de la abuela?

Prueba lo siguiente a ver si te sirve.

Saludos...

Dim MyArray(6, 3)

Private Sub UserForm_Initialize()
Dim i As Single
'EL LISTBOX1 CONTIENE 3 COLUMNAS
ListBox1.ColumnCount = 3
'ENUMERAMOS EN LA PRIMER COLUMNA
For i = 0 To 5
MyArray(i, 0) = i
Next i

'LLENAMOS LA SEGUNDA COLUMNA CON LOS VALORES
MyArray(0, 1) = "Cero"
MyArray(1, 1) = "Uno"
MyArray(2, 1) = "Dos"
MyArray(3, 1) = "Tres"
MyArray(4, 1) = "Cuatro"
MyArray(5, 1) = "Cinco"

'LLENAMOS LA TERCER COLUMNA CON LOS VALORES
MyArray(0, 2) = "Zero"
MyArray(1, 2) = "One"
MyArray(2, 2) = "Two"
MyArray(3, 2) = "Tre"
MyArray(4, 2) = "Four"
MyArray(5, 2) = "Five"

'Cargamos los datos en el listbox1
ListBox1.List() = MyArray


End Sub