anchor.diff:    
      SB.Append(' /make '+ '"'+ aProject + '"');
   
  -   if (aVB6Options.Outdir <> '') then
  +   if (aOutdir <> '') then
         begin
  -        SB.Append(' /outdir '+ '"' + aVB6Options.Outdir + '"');
  +        SB.Append(' /outdir '+ '"' + aOutdir + '"');
   
  -        lsTmpLogFile := File.IncludeTrailingPathDelimiter(aVB6Options.Outdir) + lslogfile;
  +        lsTmpLogFile := File.IncludeTrailingPathDelimiter(aOutdir) + lslogfile;
         end;  
   
      SB.Append(' /out '+ '"'+ lsTmplogfile + '"');
  
positive.code:   result := IsProcess32Exists(cvb6);  
  end;
  
  function VB6(aProject: string; aVB6Options: TVB6Options): Integer;
  var
    lipos: Integer;
    lLogFileSL: tStringList;
  
negative.code: //$vb6bin /m $project /out $logfile /outdir $outdir
  
  function IsVB6Running: boolean;
  function VB6(aProject: string;  aOutdir: string): Integer;
  function GetVB6BinDir: String;
  
  implementation
  