>... Is there any possibility to modify the menu to use DO CASE.
The valid clause calls the function below. The function has to return a logical. If .T. is returned, the selection is valid and code execution continues. If .F. is returned, the selection is invalid and menu execution continues.
PROCEDURE scrollproc
llRetVal = .f.
DO CASE
CASE mchoice = 1
some code here (optional)
llRetVal = .T.
CASE mchoice = 2
some code here (optional)
llRetVal = .T.
blah, blah, blah
ENDCASE
Return llRetVal
Mark McCasland
Midlothian, TX USA