Drop-down the DataComboBox in VB6

Drop-down the DataComboBox in VB6

The Api SendMesssage to dropdown a datacombobox (oledb) in vb6 doesn't work. it can be done with the following code:

private Sub Command1_Click()
    DataCombo1.SetFocus
    SendKeys "%{Down}"
End Sub

- this sends the alt + down arrow characters to the combobox.