Besoin d'aide application vb

Public Class Form1
    Dim List As New ArrayList()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If My.Settings.Start = True Then
            If Not My.Settings.SaveList Is Nothing Then
                List = My.Settings.SaveList
                ListBox1.Items.AddRange(List.ToArray)
            End If
        Else
            My.Settings.Start = True
            My.Settings.Save()
        End If
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing
        My.Settings.SaveList = List
        My.Settings.Save()
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim SFD As New OpenFileDialog
        SFD.Filter = "Application|*.exe|Tous les fichiers|*.*"
        SFD.Title = "Choississez l'application que vous souhaitez ajouter à la liste."
        SFD.FileName = ""
        If SFD.ShowDialog = Windows.Forms.DialogResult.OK Then
            ListBox1.Items.Add(SFD.FileName)
            List.Add(SFD.FileName)
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Try
            ListBox1.Items.RemoveAt(ListBox1.SelectedIndex)
            List.Remove(ListBox1.SelectedItem)
        Catch
            If ListBox1.SelectedIndex = False Then
                MsgBox("Vous n'avez pas selectionner d'item.", MsgBoxStyle.Critical, "Erreur")
            End If
        End Try
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            Shell(ListBox1.SelectedItem)
        Catch
            If ListBox1.SelectedIndex = False Then
                MsgBox("Vous n'avez pas selectionner d'item.", MsgBoxStyle.Critical, "Erreur")
            End If
        End Try
    End Sub
End Class

Public Class Form1

    Dim EmplacementDossier As String = "C:\"

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim di As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(EmplacementDossier)
        For Each fi As System.IO.FileInfo In di.GetFiles
            ListBox1.Items.Add(fi.FullName)
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            Shell(ListBox1.SelectedItem)
        Catch
            If ListBox1.SelectedIndex = False Then
                MsgBox("Vous n'avez pas selectionné d'item.", MsgBoxStyle.Critical, "Erreur")
            End If
        End Try
    End Sub
End Class

qui permet de restaurer le comptage des programme

Option Strict On
Imports System.IO
Public Class Form1
#Region "Declaration"
    Dim ligne, compteur As Integer
    Dim cheminexe As String = "C:\chemin desEXE" 'chemin des EXE 'a adapter
    Dim chemin As String = Application.StartupPath & "\sauvegarde.txt"
    Dim nom As String
#End Region
#Region "Ouverture et fermeture"
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            If File.Exists("sauvegarde.txt") Then
                Savelistview()
            Else
                'Création du fichier Texte
                File.CreateText(chemin)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
    End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Button1.Text = "Lancer exe"
        Button2.Text = "Ouvrir repertoire"
        Button1.AutoSize = True
        Button2.AutoSize = True
        Me.Text = My.Application.Info.AssemblyName
        If File.Exists("sauvegarde.txt") Then
            Fill_ListView(chemin, "|")
        Else
            MessageBox.Show("Création du fichier texte de sauvegarde,l'application va se fermer.", "Création fichier texte", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()
        End If
    End Sub
#End Region
#Region "Listview"
    Private Sub Listview1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
        ligne = CInt(ListView1.SelectedIndices(0).ToString)
        compteur = CInt(ListView1.Items(ligne).SubItems(1).Text)
        nom = ListView1.SelectedItems(0).Text
    End Sub
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
   Try
            ListView1.Items(ligne).SubItems(1).Text = CStr(compteur + 1)
           Process.Start(cheminexe & "\" & nom)
        Catch exc As Exception
            MessageBox.Show(exc.Message, "Erreur!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
    'ouvrir 1 fois pour enregistrer la liste
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ListView1.View = View.Details
        'lister les applications d'un repertoire
        Dim Repertoire As New System.IO.DirectoryInfo(cheminexe)
         Dim ListeFichier() As System.IO.FileInfo = Repertoire.GetFiles
        Dim cmpt As Int32
        For cmpt = 0 To ListeFichier.GetUpperBound(0)
            Me.ListView1.Items.Add(ListeFichier(cmpt).Name)  'Ajouter le nom 
            Me.ListView1.Items(cmpt).SubItems.Add("0")
        Next
    End Sub
#End Region
#Region "Sauvegarde"
    Private Function Fill_ListView(Optional sPath As String = "c:\temp\sauvegarde.txt", Optional sSeperator As String = "|") As Boolean
        Dim aline() As String
        Dim objReader As IO.StreamReader
        Dim sLine As String
        Dim arrText As New ArrayList()
        'Dim sSeperator As String
        Dim lvi As ListViewItem
        Fill_ListView = False
        Try
            sLine = ""
            If sPath.Length = 0 Then sPath = chemin
            sSeperator = "|"
            objReader = New IO.StreamReader(sPath)

            If IO.File.Exists(sPath) Then
                ListView1.View = View.Details
                ListView1.GridLines = True
                ListView1.FullRowSelect = True
                ListView1.Dock = DockStyle.Top
                ListView1.Columns.Add("Application", 200, HorizontalAlignment.Left)
                ListView1.Columns.Add("Compteur", 100, HorizontalAlignment.Left)
                Do
                    sLine = objReader.ReadLine()
                    If Not sLine Is Nothing Then
                        aline = sLine.Split(CChar(sSeperator))
                        lvi = New ListViewItem(aline)
                        ListView1.Items.Add(lvi)
                    End If
                Loop Until sLine Is Nothing
                objReader.Close()
            End If
            Fill_ListView = True
        Catch ex As Exception

        End Try

    End Function
    'enrgistrer listview
    Private Sub Savelistview()
        Dim SW As New StreamWriter(chemin)
        Dim Save_Listview As String = ""
        Dim i As Integer
        Dim j As Integer
        For i = 0 To ListView1.Items.Count - 1 ' Boucle sur le nombre d'items dans la ListView 
            For j = 0 To ListView1.Columns.Count - 1 ' Boucle sur le nombre de colonnes dans la ListView 
                Save_Listview = Save_Listview & ListView1.Items(i).SubItems(j).Text & "|"
                ' Sauvegarde d'un item dans la ListView 
            Next j
            SW.WriteLine(Save_Listview) ' Ecrit dans le fichier le contenu de la variable Save_Listview 
            Save_Listview = ""  ' Remplacement du contenu de Save_Listview par une chaîne vide 
        Next i
        SW.Close()  ' Fermeture du fichier 
    End Sub
#End Region

End Class

 Savelistview()

 'enrgistrer listview
    Private Sub Savelistview()

 Private Function Fill_ListView(Optional sPath As String = "c:\temp\sauvegarde.txt", Optional sSeperator As String = "|") As Boolean

ListView1.Columns.Add("Application", 300, HorizontalAlignment.Left)
                ListView1.Columns.Add("Compteur", 300, HorizontalAlignment.Left)

 If ListView1.SelectedItems.Count = 0 Then Exit Sub
        Try
            ListView1.Items(ligne).SubItems(1).Text = CStr(compteur + 1)
            Process.Start(cheminexe & "\" & nom)
        Catch exc As Exception
            MessageBox.Show(exc.Message, "Erreur!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

Savelistview()

 Private Sub Listview1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListView1.Click
        ligne = CInt(ListView1.SelectedIndices(0).ToString)
        compteur = CInt(ListView1.Items(ligne).SubItems(1).Text)
        nom = ListView1.SelectedItems(0).Text
    End Sub 
'ajouter un item
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then Exit Sub
        Dim MyLine As ListViewItem = New ListViewItem(New String() {TextBox1.Text, "0"})
        ListView1.Items.Add(MyLine)
        Savelistview()
    End Sub
    'supprimer un item
    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        If ListView1.SelectedItems.Count > 0 Then
            ListView1.Items.RemoveAt(ligne)
            Savelistview()
        End If
    End Sub

#Region "Declaration"
    Dim ligne, compteur As Integer
    Dim cheminexe As String
    Dim chemin As String = Application.StartupPath & "\sauvegarde.txt"
    Dim nom As String
#End Region
#Region "Ouverture et fermeture"
    Private Sub Form1_FormClosing(sender As Object, e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Try
            If File.Exists("sauvegarde.txt") Then
                Savelistview()
                My.Settings.cheminexe = cheminexe
                My.Settings.Save()
            Else
                'Création du fichier Texte
                File.CreateText(chemin)
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try
      End Sub
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        If File.Exists("sauvegarde.txt") Then
            Fill_ListView(chemin, "|")
            cheminexe = My.Settings.cheminexe
        Else
            MessageBox.Show("Création du fichier texte de sauvegarde,l'application va se fermer.", "Création fichier texte", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Me.Close()
        End If
    End Sub
#End Region