hmm, bara jag som kört fast igen.

Anta att jag har en form med en knapp och en ListBox(multiselect-2) som i form_Load() fylls med några textsträngar.
När jag trycker på knappen vill jag fylla en array med det som finns markerat ListBoxen.

Hur skall koden i Command1_Click se ut?

Låter enkelt och är det säkert men jag får inte till det.

Dim din_array() As String
Dim i As Long, j As Long


If List1.SelCount > 0 Then
ReDim din_array(0 To List1.SelCount - 1) As String
For i = 0 To List1.ListCount - 1
If List1.Selected(i) Then
din_array(j) = List1.List(i)
j = j + 1
End If
Next
End If



MS