Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _    hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _    lParam As Any) As LongConst LVM_FIRST = &H1000Const LVM_GETCOUNTPERPAGE = (LVM_FIRST + 40)' Return the number of items that can fit vertically in a ListView control' when in List or Report mode (only fully visible items are counted)Function ListViewVisibleItems(lvw As ListView) As Long    ListViewVisibleItems = SendMessage(lvw.hwnd, LVM_GETCOUNTPERPAGE, 0, _        ByVal 0&)End Function