GlobaLevel,
Это должно сделать его:
Для I = 0 к Me.ListBox1.ListCount - 1
Если Me.ListBox1.Selected (I) = True после этого
myarray (0, 0) = ListBox1.List (I, 0)
myarray (0, 1) = ListBox1.List (I, 1)
myarray (0, 2) = ListBox1.List (I, 2)
Закончитесь если
Затем iий
Патрик