ComboDropped

Public Const CB_GETDROPPEDSTATE As Long = &H157
Public Const CB_SHOWDROPDOWN As Long = &H14F

Declare Function SendMessageAsLong _
Lib "user32" _
Alias "SendMessageA" ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Nella routine:

Dim bAperto As Boolean

'Rileva se il combo =E8 aperto e se =E8 chiuso lo

'apre

bAperto =3D SendMessageAsLong( _
cmbAutomatico.hWnd, _
CB_GETDROPPEDSTATE, 0, 0) <> 0

If Not bAperto Then
SendMessageAsLong _
cmbAutomatico.hWnd, _
CB_SHOWDROPDOWN, 1, 0
End If per aprire il combo in GotFocus: