Dim F As Integer
Dim sLine As String
DIm nPos As Long
DIm nSize As Long
Dim nProz As Long
 
F = FreeFile
Open "Datei.txt" For Input As #F
 
nSize = Lof(F): nPos = 0
While Not Eof(f)
  Line Input #F, sLine
 
  nPos = nPos + Len(sLine) + 2
  nProz = Int(nPos / nSize * 100 + 0.5)
  lblStatus.Caption = CStr(nProz) & "%"
  DoEvents
 
Wend
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de