Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Const CB_GETDROPPEDCONTROLRECT = &H152
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.Bottom
End Sub |