

| Type | Description | 
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