The following sample shows the drop down portion of the control:
Private Sub CalcCombo1_KeyDown(KeyCode As Integer, Shift As Integer) If (KeyCode = vbKeyF2) Then With CalcCombo1 .DropDown End With End If End Sub