Private Sub ListViewSetFirstVisible(ByRef vListView As ListView, _
  ByVal intIndex As Integer)
 
  On Error Resume Next
  Dim i As Integer, intMult As Integer
  Dim intLBound As Integer, intUBound As Integer, intStep As Integer
  Dim intTopIndex As Integer
  If intIndex < 1 Or intIndex > vListView.ListItems.Count Then
    Exit Sub
  Else
    intTopIndex = vListView.GetFirstVisible
    Select Case intTopIndex
    Case Is < intIndex
      intMult = 1
      intLBound = vListView.GetFirstVisible
      intUBound = vListView.ListItems.Count
      intStep = 1
    Case Is > intIndex
      intMult = -1
      intLBound = vListView.GetFirstVisible
      intUBound = 1
      intStep = -1
    Case Else
      Exit Sub
    End Select
    For i = intLBound To intUBound Step intStep
      vListView.ListItems(i).EnsureVisible
      If intMult * (vListView.GetFirstVisible - intIndex) >= 0 Then
        Exit For
      End If
    Next
  End If
End Sub

ListViewSetFirstVisible ListView1, 100

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.