LPARAM cType local cLib DO CASE CASE LEFT(UPPER(cType),1)='P' cType= 'processform' cLib = 'framework\libs\aforms' CASE LEFT(UPPER(cType),1)='V' cType= 'viewingform' cLib = 'framework\libs\aforms' CASE LEFT(UPPER(cType),1)='D' cType= 'dataentryform' cLib = 'framework\libs\aforms' CASE LEFT(UPPER(cType),1)='L' cType= 'lookup' cLib = 'framework\libs\aforms' ENDCASE CREATE FORM ? AS (cType) FROM (cLib) NOWAIT