I believe this should work, and to a degree it does:
All prequisites are in order, and in debug mode it performs exactly as intended. In real life it tends to skip a page most of the time.
CASE nKeyCode = 148
TRY
.Pages1.ACTIVEPAGE = .Pages1.ACTIVEPAGE + 1
CATCH
.Pages1.ACTIVEPAGE = 1
ENDTRY
Peter Pirker
Whosoever shall not fall by the sword or by famine, shall fall by pestilence, so why bother shaving?
(Woody Allen)