DEFINE CLASS getparam AS FORM CAPTION = "Get Parameters Form" BACKCOLOR = RGB(0,0,255) FORECOLOR = RGB(255,255,255) cKeyboard = '' * 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