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" wrote in message
...


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 ***