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