Listbox questions

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

Code:

---

    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?

Perphaops u r looking for:

Code:

---

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

---

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

Code:

---

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

---

After you selecting an item in the list box:

VB Code:

MsgBox List1.ItemData(List1.ListIndex)

JO