Private Sub Command1_Click()
  Dim F As Integer
  Dim sLine As String
  Dim nPos As Long
 
  F = FreeFile
  Open App.path & "\daten.txt" For Input As #F
  While Not EOF(F)
    Line Input #F, sLine
    sevList2.AddItem , sLine
  Wend
  DoEvents
  Close #F
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de