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 Type RECT    Left As Long    Top As Long    Right As Long    Bottom As LongEnd TypeConst CB_GETDROPPEDCONTROLRECT = &H152' Return the size and position of the drop-down list rectangle ' of a ComboBox control.Sub ComboBoxGetDroppedControlRect(cb As ComboBox, Left As Long, Top As Long, _    Right As Long, Bottom As Long)    Dim lpRect As RECT    SendMessage cb.hwnd, CB_GETDROPPEDCONTROLRECT, 0, lpRect    Left = lpRect.Left    Top = lpRect.Top    Right = lpRect.Right    Bottom = lpRect.BottomEnd Sub