Wenn die Auswahl eines Werts aus einer ComboBox unumgänglich ist oder Sie den Benutzer einfach auf eine Auswahl hinweisen möchten, können Sie die ComboBox auch automatisch aufklappen lassen, sobald sie den Fokus erhält:

' --- Deklaration ---
Private Const CB_SHOWDROPDOWN = &H14F

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

Public Sub CBDropDown(ByRef Combo As ComboBox, _
             Optional ByVal Show As Boolean = True)

  SendMessage Combo.hWnd, CB_SHOWDROPDOWN, Abs(Show), ByVal 0&
End Sub

' --- Anwendung ---
Private Sub Combo1_GotFocus()
  CBDropDown Combo1
End Sub