GlobaLevel,
Isto deve fazê-lo:
Para i = 0 a Me.ListBox1.ListCount - 1
Se Me.ListBox1.Selected (i) = retificar então
myarray (0, 0) = ListBox1.List (i, 0)
myarray (0, 1) = ListBox1.List (i, 1)
myarray (0, 2) = ListBox1.List (i, 2)
Terminar se
Em seguida i
Patrick