få dropdown til at lave dropdown af sig selv

Drop denne kode ind i et modul, så har du en funktion, der kan både åbne og lukke listen:

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 Const CB_SHOWDROPDOWN = &H14F

Public Sub ComboBoxShowDropdown(cb As ComboBox, down As Boolean)
  SendMessage cb.hwnd, CB_SHOWDROPDOWN, IIf(down, 1, 0), ByVal CLng(0)
End Sub

smukt det virker jo perfekt !
maneg tak :)