>DEFINE CLASS getparam AS FORM > CAPTION = "Get Parameters Form" > BACKCOLOR = RGB(0,0,255) > FORECOLOR = RGB(255,255,255) > cKeyboard = '' PROCEDURE Init > * loop through goapp.aGetParam and bulid buttons > FOR liLoop = 1 TO ALEN(goapp.aGetParam,1) > DO CASE > CASE goapp.aGetParam[liLoop,1] = 'D' > * date type > * The label for the parameter > ADD OBJECT lblOne AS LABEL > ENDCASE > ENDFOR ENDPROC > >