Listbox questions

[anderzzo]

I have a listbox that I fill with data from an array like this:

    With Listbox1
        For i = 0 To UBound(Kunder, 2)
            .AddItem (Kunder(1, i) & " " & Kunder(2, i))
        Next
    End With

That works fine, but now to the problem, every "part" of the array has an number(identifier), Kunder(0, i) that I want to add as an index or something with the data so that when I click on a post in the listbox I can retriev the number for that post. How can I do that?

[veryjonny]

Perphaops u r looking for:

    With Listbox1
        For i = 0 To UBound(Kunder, 2)
            .AddItem (Kunder(1, i) & " " & Kunder(2, i))
             .ItemData(.NewIndex) = Kunder(0, i) 
       Next
    End With

[anderzzo]

Thanx, but what do I write to retrieve the number?

Private Sub Listbox1_Click()
    MsgBox(Listbox1.???)
End Sub

[joltremari]

After you selecting an item in the list box:

MsgBox List1.ItemData(List1.ListIndex)

JO