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.