Private Sub Command1_Click() 
Dim FileSize As Long 
Dim File 
Dim xxx As String 
Dim xinput As String*1
Dim i as Long
 
File = FreeFile() 
 
Open "C:\SE_C20FI.DTK" For Binary As File 
 
FileSize = LOF(File) 
ProgressBar1.Min = 0 
ProgressBar1.Max = FileSize 
 
xxx = ""
 
for i = 1 to FileSize
 
Get #File, , xinput 
 
xxx = xxx &  xinput
 
'damit nicht für jedes byte sonder nur jedes 100 die Progressbar aktualisiert 
' wird
if cdbl(i)/cdbl(100) = int(i/010) then
  ProgressBar1.Value = i
  DoEvents ' wichtig damit die ProgressBar neugezeichnet werden kann
end if
 
next i
 
Close #File 
 
Text1.Text = xxx
 
End Sub

Bye

illuminator
(Programmers don't die, they GOSUB without RETURN...)