lparameters tcForm, tcFormName if type("tcForm") "C" return .f. endif tcForm = alltrim(tcForm) if empty(tcForm) return .f. endif if type("tcFormName") = "C" tcFormName = alltrim(upper(tcFormName)) else tcFormName = "" endif local llFound, i llFound = .f. i = 0 if !empty(tcFormName) for i = 1 to _screen.formcount if upper(_screen.forms(i).name) = tcFormName llFound = .t. exit endif endfor endif if llFound _screen.forms(i).Show() else do form (tcForm) endif</font