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_SETITEMHEIGHT = &H1A0Const CB_SETITEMHEIGHT = &H153' Set the height in pixels of each entry in a ListBox or ComboBox controlSub SetListItemHeight(ctrl As Control, ByVal newHeight As Long) Dim uMsg As Long If TypeOf ctrl Is ListBox Then uMsg = LB_SETITEMHEIGHT ElseIf TypeOf ctrl Is ComboBox Then uMsg = CB_SETITEMHEIGHT Else Exit Sub End If ' (only the low-order word of lParam can be used.) SendMessage ctrl.hwnd, uMsg, 0, Byval CLng(newHeight And &HFFFF&) ' It is necessary to manually refresh the control. ctrl.RefreshEnd Sub


The Best Mechanical Keyboards For Programmers: Where To Find Them
When it comes to programming, a good mechanical keyboard can make all the difference. Naturally, you would want one of the best mechanical keyboards for programmers. But with so many