Private pageScroll as boolean
 
Private Sub Grid1_KeyDown(KeyCode As Integer, Shift As Integer)
    ' auch wenn in <Grid1_Scroll> TopRow als Row zugewiesen wird, geht 
    ' KeyUp/KeyDown von der VOR dem
    ' Scroll aktiven Zeile aus (IsSelected zeigt beim Einsprung in <KeyDown> 
    ' nicht auf TopRow!).
    With Grid1
        If KeyCode = vbKeyUp Then
            If .Row = 1 Then
                KeyCode = 0
                Exit Sub
            End If
        End If
 
        If Not .RowIsVisible(.Row) Then
            If .Row < .TopRow Then  ' akt. Zeile oberhalb des sichtbaren 
            ' Gridfensters
                .Row = .TopRow      ' KeyCode NICHT auf 0 = 1 Zeile nach unten
            End If
            If .Row > .TopRow Then  ' die Form des Vergleichs genügt (.Row 
            ' unterhalb des sichtbaren Gridfensters)
                .Row = .TopRow
            End If
        Else
            If PageScroll Then      ' SeitenScroll ist unmittelbar 
            ' vorausgegangen
Debug.Print "PageScroll gesetzt! bisherige Zeile in derselben Page"
                ' bisher selektierte Zeile ist noch im sichtbaren Bereich (Page 
                ' 1)
                If .Row <> .TopRow Then
                    .Row = .TopRow
                End If
            End If
        End If
    End With
End Sub
 
Private Sub Grid1_RowChange(ByVal nRow As Long)
    PageScroll = False
....
 
Private Sub Grid1_Scroll(ByVal nScrollBar As sevDataGrid2.sevGridScrollBar)
    If nScrollBar = VScrollBar Then
        Grid1.Row = Grid1.TopRow
        PageScroll = True
    End If
End Sub