end sub
private sub combo1_keypress(keyascii as integer)
if keyascii = vbkeyescape then
combo1.visible = false
msflexgrid1.setfocus
exit sub
end if
if keyascii = vbkeyreturn then
msflexgrid1.text = combo1.text
combo1.visible = false
msflexgrid1.setfocus
end if
end sub
private sub combo1_lostfocus()
