>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
.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)
ENDDO
endwith
Works very well for me.
Cetin