how do I make it so when an item is clicked into list1, it is entered in the same spot in list2. I tried the following code:

Private Sub List1_Click()
a = list1.listindex
b$ = list1.list(a)
list2.additem b$, a

but when I try it, it keeps saying "INVALID PROCEDURE CALL OR ARGUEMENT..." What is wrong?