[RESOLVED] listbox problem....

what i want to do is, when i click on one of the item in list1, then list2 item will be selected also.
for example: if second item in list 1 is selected, then the second item in list2 will be selected also.....
but what i have done seem like got something wrong...

Code:

---

For a = 0 To list1.ListCount - 1
    a = list1.ListIndex
    List2.Selected(a) = true
Next

---

Code:

---

Private Sub List1_Click()
    List2.ListIndex = List1.ListIndex
End Sub

---

Or..

Code:

---

Private Sub List1_Click()
    List2.Selected(List1.ListIndex) = True
End Sub

---

Try this out

Code:

---

Private Sub list1_Click()
  list2.ListIndex= List1.ListIndex
End Sub

---

it works...thanks......

Just in case: when using Multiselect = Simple then it's:

Code:

---

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  List2.Selected(List1.ListIndex) = List1.Selected(List1.ListIndex)
End Sub

---