vb翻页问题。

我想要的功能：
级别:
Menu1------------menu1_1-----menu1_1_1
           ------menu1_2-----menu1_2_1
           ------menu1_3-----menu1_3_1
           ------menu1_4-----menu1_4_1
要用键盘上的1到0来操作。
而且每个MENU里还有1-9个选项要执行。
在菜单上的：
1，2，3，4，选择
8，9翻页
0，返回上级彩单
============================================
要求，每个按键检测只能执行一次。
也就是
IF KEY = 1 THEN
只能写一次。
如何完成？