Observem o exemplo:

 

Tenho uma 2 list box: List1 e List2

 

Para definir o índice da List2 sendo igual a da List1 no evento Clique da list1 faço o seguinte:

 

Private Sub List1_Click()
     List2.ListIndex = List1.ListIndex ' o indice da list2 será o mesmo da list1
End Sub

 

Se eu substituisse a list1 por uma listview como seria

 

Olá! Utilize o evento ItemClick do Listview.

 

Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    List2.ListIndex = Item.Index - 1
End Sub

 

Abraço!