[RESOLVED] listbox problem....

[chxxangie]

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...

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

[jcis]

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

Or..

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

[Chathura]

Try this out

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

[chxxangie]

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

[jcis]

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

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