listboxcellkeydown: wie kann ich die Cursortasten auslesen?

[Roland Quadstege]

Im listboxcellkeydown-event navigiere ich über Return und  Tab durch  
meine Zellen. Das klappt auch schon ganz gut.
Aber irgendwie kriege ich die Cursortasten nicht raus. Zwar sollten  
die keycode stimmen (hier mal nur up und down), aber irgendwie sehe  
ich keine Funktion - irgendwie doof. Hier mal der Quellcode.

  if row<=listbox1.ListCount-1 and column <=listbox1.columncount-1 then
    '
    '
    if key=chr(9) then
      if column+1<=Listbox1.ColumnCount-2 then
        column=column+1
      else
        column=0
        row=row+1
      end if
      listbox1.editcell(row, column)
      Return true
    end if

    if key=chr(13) and row<listbox1.listcount-1 then
      column=0
      row=row+1
      listbox1.editcell(row, column)
      Return true
    end if

   '' das geht irgendwie gar nicht?!?!?!

    if key=chr(30) then 'up arrow
      if row>=1 then
        row=row-1
        listbox1.editcell(row, column)
      end if
      Return true
    end if

    if key=chr(31) then 'down arrow
      if row<listbox1.listcount then
        row=row+1
        listbox1.editcell(row, column)
      end if
      Return true
    end if
    '
    '
  end if