Private Sub Command1_Click()
Dim textzeile As String
 
    Open "c:projekt1.vbp" For Input As #1
    Do While Not EOF(1)   ' Schleife bis Dateiende.
        Line Input #1, textzeile   ' Zeile in Variable einlesen.
        List1.AddItem textzeile   ' Ausgabe im Direktfenster.
Loop
Close #1   ' Datei schließen
End Sub

ciao
elwood