在组合框的键按下事件中加入：

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 38 Then

    Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex - 1) Mod Screen.ActiveControl.ListCount
    KeyCode = 0

End If

If KeyCode = 40 Then

    Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount
    KeyCode = 0

End If

Me.Combo1.SelStart = Len(Combo1)

End Sub

 也可以在鼠标双击事件中加入下面一句以便录入：

Screen.ActiveControl.ListIndex = (Screen.ActiveControl.ListIndex + 1) Mod Screen.ActiveControl.ListCount

试试看,,,这种效果是不是觉得用起来更爽一点