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