On Error Resume Next
  Err.Clear
 
 
  cdOpenEXE.CancelError = True
  cdOpenEXE.Flags = cdlOFNHideReadOnly
  cdOpenEXE.Filter = "exe-Files (.EXE) |*.EXE|"
  cdOpenEXE.FilterIndex = 2
  cdOpenEXE.ShowOpen
 
  If Err.Number = 0 Then
    Me.cmdDel.Enabled = True
    Me.cmdStart.Enabled = True
    Me.Starten.Enabled = True
    Me.Löschen.Enabled = True
    lngIndex = lngIndex + 1
    lvEXE.ListItems.Add lngIndex, , cdOpenEXE.FileTitle, "Bild", "Bild"
    lvEXE.ListItems.Item(lngIndex).ListSubItems.Add , , cdOpenEXE.FileName, _
      "Bild2"
  End If
 
  On Error GoTo 0