GlobaLevel,
Detta bör göra den:
För I = 0 till Me.ListBox1.ListCount - 1
Om Me.ListBox1.Selected (I) = True därefter
myarray (0, 0) = ListBox1.List (I, 0)
myarray (0, 1) = ListBox1.List (I, 1)
myarray (0, 2) = ListBox1.List (I, 2)
Avsluta om
Därefter i
Patrick