GlobaLevel,
Esto debe hacerlo:
Para i = 0 a Me.ListBox1.ListCount - 1
Si Me.ListBox1.Selected (i) = entonces verdad
myarray (0, 0) = ListBox1.List (i, 0)
myarray (0, 1) = ListBox1.List (i, 1)
myarray (0, 2) = ListBox1.List (i, 2)
Terminar si
Después i
Patrick