getting selected listbox values

[x taol]

i set multiselect property of listbox control to fmMultiSelectExtended.
by the way, i want to get the selected list names.
the following code...??

for i = 0 to listbox1.listcount - 1
if listbox1.list(listbox1.listindex).selected then
msgbox listbox1.list(listbox1.listindex)
endif
next

*** Sent via Developersdex http://www.developersdex.com ***

[Norman Jones]

Hi X Taol,

Try:

'=============>>
Private Sub CommandButton1_Click()
Dim i As Long

For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
MsgBox ListBox1.List(i)
End If
Next i

End Sub
'<<=============

---
Regards,
Norman



"x taol" <[email protected]> wrote in message
news:[email protected]...
>
>
> i set multiselect property of listbox control to fmMultiSelectExtended.
> by the way, i want to get the selected list names.
> the following code...??
>
> for i = 0 to listbox1.listcount - 1
> if listbox1.list(listbox1.listindex).selected then
> msgbox listbox1.list(listbox1.listindex)
> endif
> next
>
> *** Sent via Developersdex http://www.developersdex.com ***