'----- repl. line 55 (AfxEnableVisualStyles) -----
  AfxEnableVisualStyles
   
   dim weburl as dwstring 
    weburl = AfxUrlCreateFromPath(get_webrootpuri() & get_webrootpath())
    /'   MsgBox( "webroot url ==>T "& afxisvalidurl(weburl), MB_TASKMODAL, "Test URL isvalid")'/
     if NOT AfxPathFileExists(get_webrootpath()) then 
      MsgBox("NOT Valid  " & chr(10) &  weburl  ,MB_TASKMODAL, "Test CINI : URI + Web_Root " )  
     else
        'MsgBox("IS Valid " & chr(10) & weburl ,MB_TASKMODAL, "Test CINI : URI + Web_Root " )
      
      end if 
'----- till (excl.) ' // Create the main window -----
