PageUp and PageDown with Flexgrid (Resolved)

I have a flexgrid which I populate from a DB. The user has the ability to resize the grid to any height so the number of rows being shown can change dynamically. I am writing code for the PageUp and PageDown keys. I use a hook from http://vbaccelerator.nuwebhost.com/c...k/vbalhook.htm so I have to write code to capture these key strokes.

My problem is that I don't know how to get the number of rows shown at any given time. How do I do this?

VB Code:

Dim intRows As Integer
    Dim intIndex As Integer
    
    For intIndex = 0 To MSFlexGrid1.Rows - 1
        If MSFlexGrid1.RowIsVisible(intIndex) Then
            intRows = intRows + 1
        End If
    Next
    MsgBox intRows

That did it. Thank you very much.