>Here is part of code that doesn't work.
>
>nR = 1
>DO WHILE ! FEOF(nHandle)
> nR = nR + 1
> vcStr = FGETS(nHandle, 8192)
>ENDDO
>DO FORM frmImpPrgBar
>frmImpPrgBar.pbImport.Min = 0
>frmImpPrgBar.pbImport.Max = nr
>frmImpPrgBar.pbImport.Style = 1
>frmImpPrgBar.pbImport.Value = 0
>
>On my form I put the progressbar and in the properties box none of the properties that I used in vb6 are listed.

PMFJI how much partial is this code? It seems you're trying to use pbar after the work has already finished.

with thisform.pbImport
* Init pbar 
  .Min = 0
  .Max = ceiling(fseek(m.nHandle,0,2)/8192)
  =fseek(m.nHandle,0,0)
  DO WHILE !FEOF(m.nHandle)
     vcStr = FGETS(m.nHandle, 8192)
     .Value = min(.Value+1, .Max) && Update
  ENDDO
endwith

Works very well for me.
Cetin