Private Sub lstList_DblClick()
  Dim sLine As String
  Dim F As Integer
 
  If List1.ListIndex < 0 Then Exit Sub
 
  With List1
    txtBearbeiten.Text = .List(.ListIndex)
   .Enabled = False   
 
    F = FreeFile
    Open App.Path & "\" & .List(.ListIndex) For Input As #F
    If Not EOF(F) Then Line Input #F, sLine: Text1.Text = sLine  
    If Not EOF(F) Then Line Input #F, sLine: Text2.Text = sLine  
    Close #F
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de