Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _ hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Any) As LongPrivate Declare Function GetClientRect Lib "user32" (ByVal hwnd As Long, _ lpRect As RECT) As LongConst LB_GETITEMHEIGHT = &H1A1Type RECT Left As Long Top As Long Right As Long Bottom As LongEnd Type' Return the number of visible items in a ListBox controlFunction ListBoxVisibleItems(lb As ListBox) As Long Dim lpRect As RECT, itemHeight As Long ' Get client rectangle area GetClientRect lb.hwnd, lpRect ' Get height of each item itemHeight = SendMessage(lb.hwnd, LB_GETITEMHEIGHT, 0, ByVal 0&) ' Do the division ListBoxVisibleItems = (lpRect.Bottom - lpRect.Top) itemHeightEnd Function



Top 5 B2B SaaS Marketing Agencies for 2023
In recent years, the software-as-a-service (SaaS) sector has experienced exponential growth as more and more companies choose cloud-based solutions. Any SaaS company hoping to stay ahead of the curve in this quickly changing industry needs to invest in effective marketing. So selecting the best marketing agency can mean the difference