Combobox frage

[Enno Bussmann]

Ich suche mal wieder: nach einem keydown.event sollte die combobox 
automatisch wieder den focus haben und für eine neue eingabe bereit 
sein. Im moment muss ich noch einmal tabben. Was habe ich da wo 
vergessen, bzw. übersehen ?
Code im keydown wie folgt:

  if (asc(key) = 13 and me.text <> "") then
    me.text = Titlecase(me.text)
    listbox1.AddRow me.text
    listbox1.Sort
    window1.setfocus
    me.text = ""
  end
gruss enno