Private Sub Form_Load()
  Dim F As Integer
  Dim sLine As String
 
  List1.Clear
  If Dir$(App.Path & "URLs.txt") = "" Then
    F = FreeFile
    Open App.Path & "URLs.txt" For Output As #F: Close #F
  Else
    F = FreeFile
    Open App.Path & "URLs.txt" For Input As #F
    While Not Eof(F)
      Line Input #F, sLine
      List1.AddItem sLine
    Wend
    Close #F
  End If
End Sub

Private Sub List1_Click()
  If List1.ListIndex >= 0 Then _
    txtURL.Text = List1.List(List1.ListIndex)
End Sub

Private Sub txtURL_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 THen
    <font color=green>' Enter: Inhalt in ListBox übertragen</font>
    KeyAscii = 0
    If List1.ListIndex >= 0 Then
      List1.List(List1.ListIndex) = txtURL.Text
    Else
      List1.AddItem txtURL.Text
      List1.ListIndex = List1.ListCount - 1
    End If
  End If
End Sub

Private Sub cmdNewURL_Click()
  List1.ListIndex = -1
  txtURL.Text = ""
End Sub

Private Sub URLs_Save()
  Dim F As Integer
  Dim I As Integer
 
  F = FreeFile
  Open App.Path & "URLs.txt" For Output As #F
  For I = 0 To List1.ListCount - 1
    Print #F, List1.List(I)
  Next I
  Close #F
End Sub

Private Sub cmdDelete_Click()
  Dim Index As Integer
 
  With List1
    Index = .ListIndex
    If Index >= 0 Then
      .RemoveItem Index
      If Index > .ListCount - 1 Then Index = .ListCount - 1
      .ListIndex = Index
    End If
  End With
End Sub