I want a ComboBox to expand(drop down the list) whenever it gets focus

I want a ComboBox to expand(drop down the list) whenever it gets focus.
I am thinking abiut getting a handle to mouse and firing its click or mouse down event for left button on the location where that particular ComboBox is placed. But dont know how to get the mouse handle?
Any Idea about mouse handle or direclty manipulating ComboBox as i need it?

Use this code

Code:

---

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

Private Sub Combo1_GotFocus()
  Call PostMessage(Me.Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0)
End Sub

---

Hope it will help you

Hi

for this purpose u can use shredian Grid Control that has many enhanced features for developer i hope it will provide an ease for you for future developement

Bye...

For a simple solution try using Sendkeys "{F4}" in the Got_Focus event. This should drop down the list.

Good work rxbagain!