Private Sub cmdNext_Click()
  Dim nIndex As Long
 
  With ListView1
    If Not .SelectedItem Is Nothing Then
      nIndex = .SelectedItem.Index
    Else
      nIndex = 0
    End If
 
    If nIndex < .ListItems.Count Then
      Set .SelectedItem = .ListItems(nIndex + 1)
      .SelectedItem.EnsureVisible
   End With
End Sub
 
Private Sub cmdPrev_Click()
  Dim nIndex As Long
 
  With ListView1
    If Not .SelectedItem Is Nothing Then
      nIndex = .SelectedItem.Index
    Else
      nIndex = 0
    End If
 
    If nIndex > 1 Then
      Set .SelectedItem = .ListItems(nIndex - 1)
      .SelectedItem.EnsureVisible
   End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de