'[NAME] FF_ListView_GetCountPerPage
'[AUTHORNAME] 
'[EMAIL] 
'[WEBSITE] 
'[VERSION] 
'[ISFAVORITE] No
'[EXPAND] No
'[ISPROTOTYPE] No
'[KEYWORDS] 
'listview count page
'[/KEYWORDS]
'[DESCRIPTION] 
'   Retrieves the number of items that can fit vertically in the visible
'   area of a ListView when report view.
'
'   hWndControl:  Handle of control (e.g. HWND_FORM1_LISTVIEW1)   
'            
'   Returns:      Returns the number of fully visible items.
'
'[/DESCRIPTION]
'[CODESTART]
Function FF_ListView_GetCountPerPage (ByVal hWndControl As HWND) As Integer

    ' Do a check to ensure that this is actually a window handle
    If IsWindow(hWndControl) Then                    
    
       Function = SendMessage( hWndControl, LVM_GETCOUNTPERPAGE, 0, 0 )

    End If

End Function