DO Myform WITH PROMPT() Myform.Init LPARAMETERS tcPrompt DO CASE CASE Upper(tcPrompt) = Upper("Menu Selection 1") This.Caption = "Caption 1" ..... OTHERWISE ENDCASE