Private Sub lsA_Click()
    With lsB
        .ListIndex = lsA.ListIndex
        .TopIndex = lsA.TopIndex
    End With
End Sub