' Beim beenden der Form
SaveSetting "MyApp", "ListView", "ScrollPos", CStr(ListView1.SelectedItem.Index)

' nach dem Füllen des ListView-Controls
Dim nIndex As Long
nIndex = Val(GetSetting("MyApp", "ListView", "ScrollPos", "1"))
Set ListView1.SelectedItem = ListView1.ListItems(nIndex)
ListView1.SelectedItem.EnsureVisible = True

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de