>y en el caso que el list1 tenga tres columnas?
¡Se aprovechan de mi nobleza!
Bueno, aquí está un intento, para dos columnas. Se puede fácilmente ampliar a "n" columnas.
Para cargar la lista (primero, fijar .ColumnCount = 2):
with ThisForm.List1
.AddItem("aaa")
.List(1,2) = "aa2"
.AddItem("bbb")
.List(2,2) = "bb2"
.AddItem("ccc")
.List(3,2) = "cc2"
endwith
Para extraer los valores:
with ThisForm.List1
for i = 1 to .ListCount
for j = 1 to 2
MessageBox(.List(i, j))
next
next
endwith
Difference in opinions hath cost many millions of lives: for instance, whether flesh be bread, or bread be flesh; whether whistling be a vice or a virtue; whether it be better to kiss a post, or throw it into the fire... (from Gulliver's Travels)