Private Declare Function SendMessage Lib "user32" _
                Alias "SendMessageA" ( _
                ByVal hWnd As IntPtr, _
                ByVal wMsg As Integer, _
                ByVal wParam As Integer, _
                ByVal lParam As Integer) As Integer
 
  Private Const LVM_FIRST = &H1000
  Private Const LVM_GETTOPINDEX = (LVM_FIRST + 39)
 
  Public Function LVGetTopIndex(ByVal hWndLV As IntPtr) As Integer
 
    LVGetTopIndex = SendMessage(hWndLV, _
                                LVM_GETTOPINDEX, _
                                0&, _
                                0&)
 
  End Function 'LVGetTopIndex
 
  Public Function LVSetTopIndex(ByVal lv As ListView, ByVal TopIndex As _
    Integer) As Integer
    Dim lvCurrTopIndex, lvCurrIndex As Integer
    Dim Diff, NewIndex As Integer
 
    On Error Resume Next
    LVSetTopIndex = -1 'Flag: Nix geändert
    lvCurrTopIndex = LVGetTopIndex(lv.Handle) 'Index 1. Eintrag im sichtbaren 
    ' Bereich
    lvCurrIndex = lv.SelectedItems(0).Index 'Index des markierten Eintrages
    Diff = TopIndex - lvCurrTopIndex 'Differenz zwischen 1. und aktuellem 
    ' Eintrag
    NewIndex = lvCurrIndex + Diff 'Index des Eintrages der ins Bild geholt 
    ' werden muss
    If NewIndex < lv.Items.Count - 1 Then 'Hamwer überhaupt soviele?
      lv.Items(NewIndex).EnsureVisible() 'Jo, reinschieben
      LVSetTopIndex = NewIndex 'Index 1. Eintrag im sichtbaren Bereich
    End If
 
  End Function 'LVSetTopIndex

ListView.Items(x).Selected = True
ListView.SelectedItems(0).EnsureVisible
LVSetTopIndex ListView, x

_________________________________________
ATH, Bomi