Hem / Tips & tricks
Private Sub Combo1_GotFocus() Const CB_SHOWDROPDOWN = &H14F Dim Tmp Tmp = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, ByVal 0&)End Sub