How can I loop thru a listbox and display the contents of column 1

[colezpapa]

How can I loop thru a listbox and display the contents of column(1).

Dim item As Integer
Dim x As String


For Each item In Me.list_FieldsFrom.ItemsSelected
index = Me.list_FieldsFrom.ItemData(item)

MsgBox Me.list_FieldsFrom.Column(1)

Next

Thanks

 

[GingerR]

 Dim ctl As Control
    Dim varitm As Variant
    Dim strX As String

    
    Set ctl = Me.list_FieldsFrom
    strX = ""

    For Each varitm In ctl.ItemsSelected
        If strX = "" Then
            strX = ctl.Column(1, varitm)
        Else
            strX = strX & ", " & ctl.Column(1, varitm)
        End If
    Next varitm

    MsgBox strX

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244. Basics at

http://r937.com/relational.html

 

[colezpapa]

thank you....thank you