Private Sub Command5_Click()

'listbox tan diziye aktar

 

Dim atama, i

boyut = Me.List3.ListCount

ReDim deger(boyut)

 For i = 0 To Me.List3.ListCount

        Me.List3.Selected(i) = True

Next

i = 0

 

For Each atama In Me.List3.ItemsSelected



deger(i) = Me.List3.ItemData(atama)

MsgBox deger(i)

i = i + 1

Next

End Sub