multi listbox control

[lee123]

i have three list boxes and want to know how i can choose from one listbox and have the others fill in with information example:

in the first listbox if it is loaded with names and i click on one. then in the second listbox would produce an age and the third listbox height.

but i tried with an if statement but it didn't work example:

first listbox:

if listbox1.text = "Frank" then
    listbox2.additem 35
    listbox3.additem 5'11
end if

but as you probably know this doesn't work how can i get this to work?

lee123

[vb5prgrmr]

More along the lines of this...

Private Sub List1_Click()
Dim I As Integer
For I = 0 To List1.ListCount - 1
  If List1.List(I) = "Frank" Then
    '...
  End If
Next I
End Sub

Good Luck