Dim F As Integer
Dim i As Integer
Dim sLine As String
 
F = FreeFile
Open "hallo.txt" For Input As #F
For i = 0 To 2
  Line Input #F, sLine
  Label1(i).Caption = sLine
Next i
Close #F

Dim F As Integer
Dim sLine As String
 
F = FreeFile
Open "hallo.txt" For Input As #F
Line Input #F, sLine: Label1.Caption = sLine
Line Input #F, sLine: Label2.Caption = sLine
Line Input #F, sLine: Label3.Caption = sLine
Close #F

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de