combo box and sendmessage

[tina104291325]

we know that combo box accepts calls rfom the sendmessage api to show its dropdow list progrmatically something like this

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, lParam As Long) As Long
Private Const CB_SHOWDROPDOWN = &H14F

Dim lRet As Long
lRet = SendMessage(Contr.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)

i m making a user control that depends on a combo and i want my control to have the same functionality .

can ne1 help me?

thnks