Petit bug en VB.NET

Bonjour tout le monde,

et bien voila je suis en train de programmer un petit utilitaire pour un le sport hebdomadaire d'un ami et j'ai un bug que je n'arrive vraiment pas à régler.

En faire lors de la lecture de la ligne "

 Read_File = File.ReadAllLines("Management_Sports_Data.dat")"

mon programme ne continue pas la lecture du code et affiche directement le formulaire.

voici mon code entier :
(je suis sous Visual Studio 2008)

Class Form1 

    Private Mouse_Actual_Position As Point, Mouse_New_Location As Point, Form_Actual_Position As Point, Form_New_Position As Point 
    Private Mouse_Down As Integer = Nothing 
    Private Form_Locked As Boolean 
    Private Help_Bubble As New ToolTip 
    Private Finally_Date As DateTime 
    Private Start_Write As Boolean 
    Private Read_File() As String 
    Private Values_In_File() As String 

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 


        '------------------------Pour les abdominaux------------------------------------------------- 

        Me.Abdominal_Monday_Series_One.Items.Add("Oui") 
        Me.Abdominal_Monday_Series_One.Items.Add("Non") 

        Me.Abdominal_Monday_Series_Two.Items.Add("Oui") 
        Me.Abdominal_Monday_Series_Two.Items.Add("Non") 

        Me.Abdominal_Tuesday_Series_One.Items.Add("Oui") 
        Me.Abdominal_Tuesday_Series_One.Items.Add("Non") 

        Me.Abdominal_Tuesday_Series_Two.Items.Add("Oui") 
        Me.Abdominal_Tuesday_Series_Two.Items.Add("Non") 

        Me.Abdominal_Wednesday_Series_One.Items.Add("Oui") 
        Me.Abdominal_Wednesday_Series_One.Items.Add("Non") 

        Me.Abdominal_Wednesday_Series_Two.Items.Add("Oui") 
        Me.Abdominal_Wednesday_Series_Two.Items.Add("Non") 

        Me.Abdominal_Thursday_Series_One.Items.Add("Oui") 
        Me.Abdominal_Thursday_Series_One.Items.Add("Non") 

        Me.Abdominal_Thursday_Series_Two.Items.Add("Oui") 
        Me.Abdominal_Thursday_Series_Two.Items.Add("Non") 

        '------------------------Pour les pompes------------------------------------------------- 

        Me.Pumps_Monday_Series_One.Items.Add("Oui") 
        Me.Pumps_Monday_Series_One.Items.Add("Non") 

        Me.Pumps_Monday_Series_Two.Items.Add("Oui") 
        Me.Pumps_Monday_Series_Two.Items.Add("Non") 

        Me.Pumps_Tuesday_Series_One.Items.Add("Oui") 
        Me.Pumps_Tuesday_Series_One.Items.Add("Non") 

        Me.Pumps_Tuesday_Series_Two.Items.Add("Oui") 
        Me.Pumps_Tuesday_Series_Two.Items.Add("Non") 

        Me.Pumps_Wednesday_Series_One.Items.Add("Oui") 
        Me.Pumps_Wednesday_Series_One.Items.Add("Non") 

        Me.Pumps_Wednesday_Series_Two.Items.Add("Oui") 
        Me.Pumps_Wednesday_Series_Two.Items.Add("Non") 

        Me.Pumps_Thursday_Series_One.Items.Add("Oui") 
        Me.Pumps_Thursday_Series_One.Items.Add("Non") 

        Me.Pumps_Thursday_Series_Two.Items.Add("Oui") 
        Me.Pumps_Thursday_Series_Two.Items.Add("Non") 


        '------------------------Pour les tractions------------------------------------------------- 

        Me.Drives_Monday.Items.Add("Oui") 
        Me.Drives_Monday.Items.Add("Non") 

        Me.Drives_Tuesday.Items.Add("Oui") 
        Me.Drives_Tuesday.Items.Add("Non") 

        Me.Drives_Wednesday.Items.Add("Oui") 
        Me.Drives_Wednesday.Items.Add("Non") 

        Me.Drives_Thursday.Items.Add("Oui") 
        Me.Drives_Thursday.Items.Add("Non") 


        Select Case Today.DayOfWeek 

            Case 0 
                Finally_Date = Today.AddDays(1) 
                File.Delete(Application.StartupPath & "\Management_Sports_Data.dat") 

            Case 1 
                Finally_Date = Today 

            Case 2 
                Finally_Date = Today.AddDays(-1) 

            Case 3 
                Finally_Date = Today.AddDays(-2) 

            Case 4 
                Finally_Date = Today.AddDays(-3) 

            Case 5 
                Finally_Date = Today.AddDays(3) 
                File.Delete(Application.StartupPath & "\Management_Sports_Data.dat") 

            Case 6 
                Finally_Date = Today.AddDays(2) 
                File.Delete(Application.StartupPath & "\Management_Sports_Data.dat") 

        End Select 

        Me.Label_Week.Text = "Semaine du " & Finally_Date.ToString("dddd d MMMM") & " au " & Finally_Date.AddDays(3).ToString("dddd d MMMM") 

        Me.Help_Bubble.SetToolTip(Me.Monday_Label, StrConv(Finally_Date.ToString("dddd d MMMM"), vbProperCase)) 
        Me.Help_Bubble.SetToolTip(Me.Tuesday_Label, StrConv(Finally_Date.AddDays(1).ToString("dddd d MMMM"), vbProperCase)) 
        Me.Help_Bubble.SetToolTip(Me.Wednesday_Label, StrConv(Finally_Date.AddDays(2).ToString("dddd d MMMM"), vbProperCase)) 
        Me.Help_Bubble.SetToolTip(Me.Thursday_Label, StrConv(Finally_Date.AddDays(3).ToString("dddd d MMMM"), vbProperCase)) 

        Me.Change_Color_White_Tab.Tag = Application.StartupPath & "\Images\Background\White_Background.jpg" 
        Me.Change_Color_Blue_Tab.Tag = Application.StartupPath & "\Images\Background\Blue_Background.jpg" 
        Me.Change_Color_Yellow_Tab.Tag = Application.StartupPath & "\Images\Background\Yellow_Background.jpg" 
        Me.Change_Color_Red_Tab.Tag = Application.StartupPath & "\Images\Background\Red_Background.jpg" 
        Me.Change_Color_Pink_Tab.Tag = Application.StartupPath & "\Images\Background\Pink_Background.jpg" 
        Me.Change_Color_Green_Tab.Tag = Application.StartupPath & "\Images\Background\Green_Background.jpg" 
        Me.Change_Color_Purple_Tab.Tag = Application.StartupPath & "\Images\Background\Purple_Background.jpg" 

        Me.Lock_Form.BackgroundImage = System.Drawing.Image.FromFile(Application.StartupPath & "\Images\Closed_To_Move.png") 
        Me.Help_Bubble.SetToolTip(Me.Lock_Form, "Bloquer le mouvement du formulaire !") 

        Read_File = File.ReadAllLines("Management_Sports_Data.dat") 

        For J = Me.Controls.Count - 1 To 0 Step -1 

            For I = Read_File.Count - 1 To 0 Step -1 

                Values_In_File = Split(Read_File(I), "$") 

                If Me.Controls(J).Name = Trim(Values_In_File(1)) Then 

                    If Trim(Values_In_File(2)) = "Yes" Then 

                        Me.Controls(J).Tag = Trim(Values_In_File(2)) 

                    End If 
                End If 
            Next 
        Next 

        If Me.Abdominal_Monday_Series_One.Tag = "Yes" Then Me.Abdominal_Monday_Series_One.SelectedIndex = 0 Else Me.Abdominal_Monday_Series_One.SelectedIndex = 1 
        If Me.Abdominal_Monday_Series_Two.Tag = "Yes" Then Me.Abdominal_Monday_Series_Two.SelectedIndex = 0 Else Abdominal_Monday_Series_Two.SelectedIndex = 1 
        If Me.Abdominal_Tuesday_Series_One.Tag = "Yes" Then Me.Abdominal_Tuesday_Series_One.SelectedIndex = 0 Else Me.Abdominal_Tuesday_Series_One.SelectedIndex = 1 
        If Me.Abdominal_Tuesday_Series_Two.Tag = "Yes" Then Me.Abdominal_Tuesday_Series_Two.SelectedIndex = 0 Else Abdominal_Tuesday_Series_Two.SelectedIndex = 1 
        If Me.Abdominal_Wednesday_Series_One.Tag = "Yes" Then Me.Abdominal_Wednesday_Series_One.SelectedIndex = 0 Else Me.Abdominal_Wednesday_Series_One.SelectedIndex = 1 
        If Me.Abdominal_Wednesday_Series_Two.Tag = "Yes" Then Me.Abdominal_Wednesday_Series_Two.SelectedIndex = 0 Else Abdominal_Wednesday_Series_Two.SelectedIndex = 1 
        If Me.Abdominal_Thursday_Series_One.Tag = "Yes" Then Me.Abdominal_Thursday_Series_One.SelectedIndex = 0 Else Me.Abdominal_Thursday_Series_One.SelectedIndex = 1 
        If Me.Abdominal_Thursday_Series_Two.Tag = "Yes" Then Me.Abdominal_Thursday_Series_Two.SelectedIndex = 0 Else Abdominal_Thursday_Series_Two.SelectedIndex = 1 

        If Me.Pumps_Monday_Series_One.Tag = "Yes" Then Me.Pumps_Monday_Series_One.SelectedIndex = 0 Else Me.Pumps_Monday_Series_One.SelectedIndex = 1 
        If Me.Pumps_Monday_Series_Two.Tag = "Yes" Then Me.Pumps_Monday_Series_Two.SelectedIndex = 0 Else Pumps_Monday_Series_Two.SelectedIndex = 1 
        If Me.Pumps_Tuesday_Series_One.Tag = "Yes" Then Me.Pumps_Tuesday_Series_One.SelectedIndex = 0 Else Me.Pumps_Tuesday_Series_One.SelectedIndex = 1 
        If Me.Pumps_Tuesday_Series_Two.Tag = "Yes" Then Me.Pumps_Tuesday_Series_Two.SelectedIndex = 0 Else Pumps_Tuesday_Series_Two.SelectedIndex = 1 
        If Me.Pumps_Wednesday_Series_One.Tag = "Yes" Then Me.Pumps_Wednesday_Series_One.SelectedIndex = 0 Else Me.Pumps_Wednesday_Series_One.SelectedIndex = 1 
        If Me.Pumps_Wednesday_Series_Two.Tag = "Yes" Then Me.Pumps_Wednesday_Series_Two.SelectedIndex = 0 Else Pumps_Wednesday_Series_Two.SelectedIndex = 1 
        If Me.Pumps_Thursday_Series_One.Tag = "Yes" Then Me.Pumps_Thursday_Series_One.SelectedIndex = 0 Else Me.Pumps_Thursday_Series_One.SelectedIndex = 1 
        If Me.Pumps_Thursday_Series_Two.Tag = "Yes" Then Me.Pumps_Thursday_Series_Two.SelectedIndex = 0 Else Pumps_Thursday_Series_Two.SelectedIndex = 1 

        If Me.Drives_Monday.Tag = "Yes" Then Me.Drives_Monday.SelectedIndex = 0 Else Me.Drives_Monday.SelectedIndex = 1 
        If Me.Drives_Tuesday.Tag = "Yes" Then Me.Drives_Tuesday.SelectedIndex = 0 Else Me.Drives_Tuesday.SelectedIndex = 1 
        If Me.Drives_Wednesday.Tag = "Yes" Then Me.Drives_Wednesday.SelectedIndex = 0 Else Me.Drives_Wednesday.SelectedIndex = 1 
        If Me.Drives_Thursday.Tag = "Yes" Then Me.Drives_Thursday.SelectedIndex = 0 Else Me.Drives_Thursday.SelectedIndex = 1 

    End Sub 

    Private Sub Grab_Form(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown, Wednesday_Label.MouseDown, Tuesday_Label.MouseDown, Thursday_Label.MouseDown, Sports_Label.MouseDown, Pumps_Label.MouseDown, Monday_Label.MouseDown, LineShape9.MouseDown, LineShape8.MouseDown, LineShape7.MouseDown, LineShape6.MouseDown, LineShape11.MouseDown, Label_Week.MouseDown, Drives_Label.MouseDown, Day_Label.MouseDown, Abdominal_Label.MouseDown, LineShape5.MouseDown, LineShape2.MouseDown, LineShape14.MouseDown, LineShape13.MouseDown, LineShape1.MouseDown, LineShape4.MouseDown, LineShape3.MouseDown, LineShape12.MouseDown, LineShape10.MouseDown, LineShape15.MouseDown, Pumps_Wednesday_Series_Two.MouseDown, Pumps_Wednesday_Series_One.MouseDown, Pumps_Tuesday_Series_Two.MouseDown, Pumps_Tuesday_Series_One.MouseDown, Pumps_Thursday_Series_Two.MouseDown, Pumps_Thursday_Series_One.MouseDown, Pumps_Monday_Series_Two.MouseDown, Pumps_Monday_Series_One.MouseDown, Drives_Wednesday.MouseDown, Drives_Tuesday.MouseDown, Drives_Thursday.MouseDown, Drives_Monday.MouseDown, Abdominal_Wednesday_Series_Two.MouseDown, Abdominal_Wednesday_Series_One.MouseDown, Abdominal_Tuesday_Series_Two.MouseDown, Abdominal_Tuesday_Series_One.MouseDown, Abdominal_Thursday_Series_Two.MouseDown, Abdominal_Thursday_Series_One.MouseDown, Abdominal_Monday_Series_Two.MouseDown, Abdominal_Monday_Series_One.MouseDown, Pumps_Serie_Two_Label.MouseDown, Pumps_Serie_One_Label.MouseDown, Abdominal_Serie_Two_Label.MouseDown, Abdominal_Serie_One_Label.MouseDown 

        If Form_Locked = False And e.Button = Windows.Forms.MouseButtons.Left And Start_Write = True Then 

            Mouse_Down = 1 
            Mouse_Actual_Position = Control.MousePosition 
            Form_Actual_Position = Me.Location 

        End If 

    End Sub 
    Private Sub Release_Form(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp, Wednesday_Label.MouseUp, Tuesday_Label.MouseUp, Thursday_Label.MouseUp, Sports_Label.MouseUp, Pumps_Label.MouseUp, Monday_Label.MouseUp, LineShape9.MouseUp, LineShape8.MouseUp, LineShape7.MouseUp, LineShape6.MouseUp, LineShape11.MouseUp, Label_Week.MouseUp, Drives_Label.MouseUp, Day_Label.MouseUp, Abdominal_Label.MouseUp, LineShape5.MouseUp, LineShape4.MouseUp, LineShape3.MouseUp, LineShape2.MouseUp, LineShape14.MouseUp, LineShape13.MouseUp, LineShape12.MouseUp, LineShape10.MouseUp, LineShape1.MouseUp, LineShape15.MouseUp, Pumps_Wednesday_Series_Two.MouseUp, Pumps_Wednesday_Series_One.MouseUp, Pumps_Tuesday_Series_Two.MouseUp, Pumps_Tuesday_Series_One.MouseUp, Pumps_Thursday_Series_Two.MouseUp, Pumps_Thursday_Series_One.MouseUp, Pumps_Monday_Series_Two.MouseUp, Pumps_Monday_Series_One.MouseUp, Drives_Wednesday.MouseUp, Drives_Tuesday.MouseUp, Drives_Thursday.MouseUp, Drives_Monday.MouseUp, Abdominal_Wednesday_Series_Two.MouseUp, Abdominal_Wednesday_Series_One.MouseUp, Abdominal_Tuesday_Series_Two.MouseUp, Abdominal_Tuesday_Series_One.MouseUp, Abdominal_Thursday_Series_Two.MouseUp, Abdominal_Thursday_Series_One.MouseUp, Abdominal_Monday_Series_Two.MouseUp, Abdominal_Monday_Series_One.MouseUp, Pumps_Serie_Two_Label.MouseUp, Pumps_Serie_One_Label.MouseUp, Abdominal_Serie_Two_Label.MouseUp, Abdominal_Serie_One_Label.MouseUp 

        If Form_Locked = False And e.Button = Windows.Forms.MouseButtons.Left And Start_Write = True Then 

            Mouse_Down = 0 

        End If 

    End Sub 

    Private Sub Move_Form(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove, Wednesday_Label.MouseMove, Tuesday_Label.MouseMove, Thursday_Label.MouseMove, Sports_Label.MouseMove, Pumps_Label.MouseMove, Monday_Label.MouseMove, LineShape9.MouseMove, LineShape8.MouseMove, LineShape7.MouseMove, LineShape6.MouseMove, LineShape11.MouseMove, Label_Week.MouseMove, Drives_Label.MouseMove, Day_Label.MouseMove, Abdominal_Label.MouseMove, LineShape5.MouseMove, LineShape2.MouseMove, LineShape14.MouseMove, LineShape13.MouseMove, LineShape1.MouseMove, LineShape4.MouseMove, LineShape3.MouseMove, LineShape12.MouseMove, LineShape10.MouseMove, LineShape15.MouseMove, Pumps_Wednesday_Series_Two.MouseMove, Pumps_Wednesday_Series_One.MouseMove, Pumps_Tuesday_Series_Two.MouseMove, Pumps_Tuesday_Series_One.MouseMove, Pumps_Thursday_Series_Two.MouseMove, Pumps_Thursday_Series_One.MouseMove, Pumps_Monday_Series_Two.MouseMove, Pumps_Monday_Series_One.MouseMove, Drives_Wednesday.MouseMove, Drives_Tuesday.MouseMove, Drives_Thursday.MouseMove, Drives_Monday.MouseMove, Abdominal_Wednesday_Series_Two.MouseMove, Abdominal_Wednesday_Series_One.MouseMove, Abdominal_Tuesday_Series_Two.MouseMove, Abdominal_Tuesday_Series_One.MouseMove, Abdominal_Thursday_Series_Two.MouseMove, Abdominal_Thursday_Series_One.MouseMove, Abdominal_Monday_Series_Two.MouseMove, Abdominal_Monday_Series_One.MouseMove, Pumps_Serie_Two_Label.MouseMove, Pumps_Serie_One_Label.MouseMove, Abdominal_Serie_Two_Label.MouseMove, Abdominal_Serie_One_Label.MouseMove 

        If Form_Locked = False And Mouse_Down = 1 And Start_Write = True Then 
            Mouse_New_Location = Control.MousePosition 
            Form_New_Position.X = Mouse_New_Location.X - Mouse_Actual_Position.X + Form_Actual_Position.X 
            Form_New_Position.Y = Mouse_New_Location.Y - Mouse_Actual_Position.Y + Form_Actual_Position.Y 
            Location = Form_New_Position 
            Form_Actual_Position = Form_New_Position 
            Mouse_Actual_Position = Mouse_New_Location 
        End If 
    End Sub 

    Private Sub Change_Color_Click(ByVal Sender As System.Object, ByVal e As System.EventArgs) Handles Change_Color_Purple_Tab.Click, Change_Color_Yellow_Tab.Click, Change_Color_White_Tab.Click, Change_Color_Red_Tab.Click, Change_Color_Pink_Tab.Click, Change_Color_Green_Tab.Click, Change_Color_Blue_Tab.Click 

        Me.BackgroundImage = System.Drawing.Image.FromFile(Sender.tag) 

    End Sub 

    Private Sub Lock_Form_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lock_Form.Click 

        If Form_Locked = False Then 
            Form_Locked = True 
            Mouse_Down = 2 
            Me.Lock_Form.BackgroundImage = System.Drawing.Image.FromFile(Application.StartupPath & "\Images\Open_To_Move.png") 
            Me.Help_Bubble.SetToolTip(Me.Lock_Form, "Débloquer le mouvement du formulaire !") 
        Else 
            Form_Locked = False 
            Mouse_Down = 0 
            Me.Lock_Form.BackgroundImage = System.Drawing.Image.FromFile(Application.StartupPath & "\Images\Closed_To_Move.png") 
            Me.Help_Bubble.SetToolTip(Me.Lock_Form, "Bloquer le mouvement du formulaire !") 
        End If 

    End Sub 

    Private Sub Quit_Program_Tab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit_Program_Tab.Click, Me.Disposed 

        Me.Close() 

    End Sub 

    Private Sub AProposDeManagementSportsV1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AProposDeManagementSportsV1ToolStripMenuItem.Click 

        Dim Message As String 

        Message = "Utilitaire créée par la société Sashji's © Corporation 2010, tout les droits sont réservés à celle-ci..." 

        MsgBox(Message, vbInformation, "Sashji's © Corporation 2010") 

    End Sub 

    Private Sub One_Series_Is_Over(ByVal ComboBox_Actually As System.Object, ByVal e As System.EventArgs) Handles Pumps_Wednesday_Series_Two.SelectedIndexChanged, Pumps_Wednesday_Series_One.SelectedIndexChanged, Pumps_Tuesday_Series_Two.SelectedIndexChanged, Pumps_Tuesday_Series_One.SelectedIndexChanged, Pumps_Thursday_Series_Two.SelectedIndexChanged, Pumps_Thursday_Series_One.SelectedIndexChanged, Pumps_Monday_Series_Two.SelectedIndexChanged, Pumps_Monday_Series_One.SelectedIndexChanged, Drives_Wednesday.SelectedIndexChanged, Drives_Tuesday.SelectedIndexChanged, Drives_Thursday.SelectedIndexChanged, Drives_Monday.SelectedIndexChanged, Abdominal_Wednesday_Series_Two.SelectedIndexChanged, Abdominal_Wednesday_Series_One.SelectedIndexChanged, Abdominal_Tuesday_Series_Two.SelectedIndexChanged, Abdominal_Tuesday_Series_One.SelectedIndexChanged, Abdominal_Thursday_Series_Two.SelectedIndexChanged, Abdominal_Thursday_Series_One.SelectedIndexChanged, Abdominal_Monday_Series_Two.SelectedIndexChanged, Abdominal_Monday_Series_One.SelectedIndexChanged 

        Dim Write_In_File As StreamWriter 

        If Start_Write = True Then 

            Write_In_File = File.CreateText(Application.StartupPath & "\Management_Sports_Data.dat") 

            If ComboBox_Actually.Text = "Non" Then 

                ComboBox_Actually.ForeColor = Color.Red 

                ComboBox_Actually.Tag = "No" 

            ElseIf ComboBox_Actually.Text = "Oui" Then 

                ComboBox_Actually.ForeColor = Color.Green 

                ComboBox_Actually.Tag = "Yes" 

            End If 

            For I = Me.Controls.Count - 1 To 0 Step -1 

                If Me.Controls(I).Tag = "Yes" Or Me.Controls(I).Tag = "No" Then 

                    Write_In_File.WriteLine(Me.Controls(I).Name & "$ : " & "$" & Me.Controls(I).Tag) 

                End If 
            Next 

            Write_In_File.Close() 
        End If 

    End Sub 
End Class

Merci d'avance pour voitre aide ;-) !