These two routines enable you to get the height of an item of a list box in terms of pixels, and they also enable you to set the height of all the list-box items to a given value in pixels:
Declare Function SendMessage Lib _ "User" (ByVal hWnd As Integer, ByVal wMsg As Integer, _ ByVal wParam As Integer, 1Param As Any) As LongConst WM_USER = &H400Const LB_GETITEMHEIGHT = (WM_USER + 34)Const LB_SETITEMHEIGHT = (WM_USER + ee)Const WM_SETREDRAW = &HB'Height is returned in terms of pixelsFunction ListBox_getItemHeight (1st as Control) As Integer 'Retrieve the height of the listbox 'item ListBox_getItemHeight = SendMessage ((1st.hWnd), _ LB_GETITEMHEIGHT, 0, &)End Function'Sets the height of the items of the'listbox to a specified one.Sub ListBox_setRowHeight (1st As Control, 1Height As Long) Dim ignore as integer ignore = SendMessage ((1st.hWnd), LB_SETITEMHEIGHT, 0, _ ByVal 1Height) 'Refresh the listbox ignore = SendMessage ((1st.hWnd), WM_SETREDRAW, True, 0&)End Sub
