??

<code>

If ListView1.SelectedItem Is Nothing Then Exit Sub
Set itmxlook2 = ListView2.FindItem(ListView1.SelectedItem.SubItems(4), lvwSubItem, , lvwWholeWord)
If Not itmxlook2 Is Nothing Then
ListView2.SetFocus
ListView2.SelectedItem = itmxlook2

</code>

Väljer en rad i den övre listan och den markerar den raden som motsvarar mitt val i det nedre.

Men det saknas nånting fiffigt här.. Listan i listview2 kan vara jättelång.

Och jag skulle vilja att den scrollar fram till den raden den har markerat.


Mvh
Rickard

Finns något som heter EnsureVisible:
<code>

If ListView1.SelectedItem Is Nothing Then Exit Sub

Set itmxlook2 = ListView2.FindItem(ListView1.SelectedItem.SubItems(4), lvwSubItem, , lvwWholeWord)
If Not itmxlook2 Is Nothing Then
ListView2.SetFocus
Set ListView2.SelectedItem = itmxlook2
itmxlook2.EnsureVisible
</code>

Vilken kille!

Stort Tack!