Dim pTop As Integer
Dim pBottom As Integer
 
' 20. ListView-Eintrag prüfen
Dim nItem As Integer = 19
 
With ListView1
  pTop = .TopItem.GetBounds(ItemBoundsPortion.Entire).Top
  pBottom = .Height - 4
 
  Dim r As Rectangle = .Items.Item(nItem).GetBounds(ItemBoundsPortion.Entire)
 
  If r.Top < pTop Then
    MsgBox("Item liegt oberhalb des aktuellen Top-Items")
  ElseIf r.Top > pBottom Then
    MsgBox("Item liegt unterhalb des letzten sichtbaren Items")
  Else
    MsgBox("Item ist sichtbar")
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de