VB6 - Abrir o ComboBox assim que receber o focu (sem usar API)

 

Exemplo: 01

Private Sub Combo1_GotFocus()
SendKeys "%+{Down}"
End Sub

Exemplo: 02

Postada em 24/1/2002 por MicNic

Private Sub Combo1_GotFocus()
SendKeys "%+{F4}"
End Sub

Toda vez em que o foco for para o combo, ele sera aberto.