Public Function handleKeyDown(KeyCode As Integer, cboControl As ComboBox)
	Dim curIndex As Long
	curIndex = cboControl.ListIndex
	Select Case KeyCode
	Case vbKeyUp
		If curIndex > 0 Then
			cboControl = cboControl.ItemData(curIndex - 1)
		End If 
		KeyCode = 0
	Case vbKeyDown
		If curIndex < cboControl.ListCount - 1 Then 
			cboControl = cboControl.ItemData(curIndex + 1)
		End If 
		KeyCode = 0
	Case Else
	End Select
End Function