Const CB_GETDROPPEDSTATE = &H157
Пошлите сообщение CB_GETDROPPEDSTATE комбинированному окну для определения видимости раскрывающего списка.
Если сообщение возвращает 0, список не виден. Если сообщение возвращает значение, отличное от 0, список виден
' Определяем состояние видимости списка Combo1
Dim retval As Long
retval = SendMessage(Combo1.hWnd, CB_GETDROPPEDSTATE, ByVal 0, ByVal 0)
Select Case retval
Case 0
Debug.Print "Раскрывающийся список не виден"
Case Else
Debug.Print "Раскрывающийся список виден"
End Select