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 LB_GETITEMHEIGHT = &H1A1Const CB_GETITEMHEIGHT = &H154' Return the height of each entry in a ListBox or ComboBox control (in pixels)Function GetListItemHeight(ctrl As Control) As Long Dim uMsg As Long If TypeOf ctrl Is ListBox Then uMsg = LB_GETITEMHEIGHT ElseIf TypeOf ctrl Is ComboBox Then uMsg = CB_GETITEMHEIGHT Else Exit Function End If GetListItemHeight = SendMessage(ctrl.hwnd, uMsg, 0, ByVal 0&)End Function
4 Areas of Your Company Where Your Audio Really Matters
February 2, 2023
Your company probably relies on audio more than you realize. Whether you’re creating a spoken text message to a colleague or giving a speech, you want your audio to shine. Otherwise, you could cause avoidable friction points and potentially hurt your brand reputation. For example, let’s say you create a
