Private Sub lstList_DblClick()
Dim FN As Integer
Dim strPath As String
Dim strFileName As String
Dim sLine As String
 
  With lstList
    If .ListIndex > -1 Then
      txtBearbeiten.Text = .List(.ListIndex)
      .Enabled = False
    End If
  End With
 
strPath = App.Path
If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"
strFileName = strPath & lstList.List(lstList.ListIndex) & ".txt"
FN = FreeFile()
 
'damit werden die Projektinhalte geladen und angezeigt
Open strFileName For Input As #FN
  If Not EOF(1) Then Line Input #1, sLine: txtBT.Text = sLine
  If Not EOF(1) Then Line Input #1, sLine: txtStunden.Text = sLine
  Close #1
 
End Sub