Private Sub cmdLöschen_Click()
 
Dim antwort As Integer 
 
Dim sFile As String
 
If lstList.ListCount > 0 And lstList.ListIndex >= 0 Then
 
antwort = MsgBox("Soll das Projekt endgültig gelöscht werden?", 
 
vbYesNo + vbInformation, "Hinweis")
 
If antwort = vbYes Then
 
sFile = lstList.List(lstList.ListIndex)
 
Kill App.Path & "\" & sFile & ".txt"
 
lstList.RemoveItem lstList.ListIndex
 
End If
 
Else
 
MsgBox "Alle Einträge gelöscht!", vbInformation, "Hinweis"
 
End If
 
End Sub