Option Explicit
 
Private Sub Command1_Click()
 
   Dim i As Long
 
      'Eintrag/Einträge suchen und löschen
      With List1
         For i = .ListCount - 1 To 0 Step -1
            If .List(i) = Text1.Text Then
               .RemoveItem (i)
            End If
         Next
      End With
 
End Sub
 
Private Sub Command2_Click()
 
   Dim i As Long
   Dim FNr As Integer
   Dim myFile As String
 
      FNr = FreeFile
      myFile = "c:\test\List1.dat"
 
      Open myFile For Output As #FNr
      For i = 0 To List1.ListCount - 1
         Print #FNr, List1.List(i)
      Next
      Close #FNr
End Sub
 
Private Sub Form_Load()
 
   Dim i As Long
 
      For i = 0 To 20
         List1.AddItem "Zeile " & i
      Next
      Text1.Text = "Zeile 5"
End Sub