Сегодня опять мало, потому что опять поздно.
Присвоил пока просто клавиши 1 2 3 4. Сначала городил огород вокруг присваивания цифровых Case внутри основного Select. А потом допёр что можно использовать те же константы что и везде. Удалил цифровые Case. Сработало!
Исходник