GlobaLevel,
Dit zou het moeten doen:
Voor I = 0 aan Me.ListBox1.ListCount - 1
Als Me.ListBox1.Selected (I) = Waar toen
myarray (0, 0) = ListBox1.List (I, 0)
myarray (0, 1) = ListBox1.List (I, 1)
myarray (0, 2) = ListBox1.List (I, 2)
Eind als
Volgende I
Patrick