Visual Basic - DESPLEGAR DATACOMBO AUTOMATICAMENTE SIN HACER CLICK EN LA FLECHA DERECHA

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 ShowDropDownCombo(Cmb As ComboBox)

    SendMessage Cmb.hwnd, CB_SHOWDROPDOWN, 1, 0

End Sub

Dim Cl As New Class1

Private Sub Combo1_GotFocus()

    Cl.ShowDropDownCombo Combo1

End Sub

Combobox.DroppedDown = True