Saving Automatic Login Information [Advanced]

[VisualBasic2008]

I am trying to create a program that will have an option to automatically log you into a couple sites when you press the Start button. I have a separate form that you can open and put in your Username and Password for each site. There is a button that when you press it it is supposed to write to a file (C:\Desktop\Accounts.txt) you username and password so that when it is opened again you will not have to type them again. I had it working perfectly until I added some code so that it will remember if you had the check box checked and have the text box as read only (if check box is not checked). I even tried deleting the new code but it still will not write to the file, but it can read from it if I put the information in manually. Any help on what I did wrong would be great.

Here is what I have so far:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Save As New SaveFileDialog()
        Dim myStreamWriter As System.IO.StreamWriter

        Try
            myStreamWriter = System.IO.File.AppendText("C:\Desktop\Accounts.txt")
            myStreamWriter.WriteLine(TextBox1.Text)
            myStreamWriter.WriteLine(TextBox2.Text)
            myStreamWriter.WriteLine(TextBox3.Text)
            myStreamWriter.WriteLine(TextBox4.Text)
            myStreamWriter.WriteLine(TextBox5.Text)
            myStreamWriter.WriteLine(TextBox6.Text)
            myStreamWriter.WriteLine(TextBox7.Text)
            myStreamWriter.WriteLine(TextBox8.Text)
            myStreamWriter.WriteLine(TextBox9.Text)
            myStreamWriter.WriteLine(TextBox10.Text)
            myStreamWriter.WriteLine(TextBox11.Text)
            myStreamWriter.WriteLine(TextBox12.Text)
            myStreamWriter.WriteLine(TextBox13.Text)
            myStreamWriter.WriteLine(TextBox14.Text)
            myStreamWriter.WriteLine(TextBox15.Text)
            myStreamWriter.WriteLine(TextBox16.Text)
            myStreamWriter.WriteLine(TextBox17.Text)
            myStreamWriter.WriteLine(TextBox18.Text)
            myStreamWriter.WriteLine(TextBox19.Text)
            myStreamWriter.WriteLine(TextBox20.Text)
            myStreamWriter.Flush()
        Catch ex As Exception
            ' Do Nothing
        End Try
    End Sub

    Private Sub accounts_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Open As New OpenFileDialog()
        Dim myStreamReader As System.IO.StreamReader

        Try
            myStreamReader = System.IO.File.OpenText("C:\Desktop\Accounts.txt")
            TextBox1.Text = myStreamReader.ReadLine()
            TextBox2.Text = myStreamReader.ReadLine()
            TextBox3.Text = myStreamReader.ReadLine()
            TextBox4.Text = myStreamReader.ReadLine()
            TextBox5.Text = myStreamReader.ReadLine()
            TextBox6.Text = myStreamReader.ReadLine()
            TextBox7.Text = myStreamReader.ReadLine()
            TextBox8.Text = myStreamReader.ReadLine()
            TextBox9.Text = myStreamReader.ReadLine()
            TextBox10.Text = myStreamReader.ReadLine()
            TextBox11.Text = myStreamReader.ReadLine()
            TextBox12.Text = myStreamReader.ReadLine()
            TextBox13.Text = myStreamReader.ReadLine()
            TextBox14.Text = myStreamReader.ReadLine()
            TextBox15.Text = myStreamReader.ReadLine()
            TextBox16.Text = myStreamReader.ReadLine()
            TextBox17.Text = myStreamReader.ReadLine()
            TextBox18.Text = myStreamReader.ReadLine()
            TextBox19.Text = myStreamReader.ReadLine()
            TextBox20.Text = myStreamReader.ReadLine()
        Catch ex As Exception

        End Try
        If TextBox1.Text = "" Then
            CheckBox1.Checked = False
        ElseIf TextBox1.Text > "" Then
            CheckBox1.Checked = True
        End If
        If TextBox3.Text = "" Then
            CheckBox2.Checked = False
        ElseIf TextBox3.Text > "" Then
            CheckBox2.Checked = True
        End If
        If TextBox5.Text = "" Then
            CheckBox3.Checked = False
        ElseIf TextBox5.Text > "" Then
            CheckBox3.Checked = True
        End If
        If TextBox7.Text = "" Then
            CheckBox4.Checked = False
        ElseIf TextBox7.Text > "" Then
            CheckBox4.Checked = True
        End If
        If TextBox9.Text = "" Then
            CheckBox5.Checked = False
        ElseIf TextBox9.Text > "" Then
            CheckBox5.Checked = True
        End If
        If TextBox11.Text = "" Then
            CheckBox6.Checked = False
        ElseIf TextBox11.Text > "" Then
            CheckBox6.Checked = True
        End If
        If TextBox13.Text = "" Then
            CheckBox7.Checked = False
        ElseIf TextBox13.Text > "" Then
            CheckBox7.Checked = True
        End If
        If TextBox15.Text = "" Then
            CheckBox8.Checked = False
        ElseIf TextBox15.Text > "" Then
            CheckBox8.Checked = True
        End If
        If TextBox17.Text = "" Then
            CheckBox9.Checked = False
        ElseIf TextBox17.Text > "" Then
            CheckBox9.Checked = True
        End If
        If TextBox19.Text = "" Then
            CheckBox10.Checked = False
        ElseIf TextBox19.Text > "" Then
            CheckBox10.Checked = True
        End If
    End Sub

The code near the bottom is for the Check box and read only.

[Dark Anima]

If you want to find out what's wrong, don't use try without even handling catching it. Try this for saving your data.

Dim SW As New IO.StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\Accounts.txt", False)
        For i As Int32 = 1 To 20
            SW.WriteLine(Me.Controls("TextBox" & i.ToString).Text)
        Next
        SW.Close()

You can do the same with your checkboxes.

[VisualBasic2008]

I couldn't get it to work. I tried placing that code in the Button1 section but it didn't save anything. And I was also wondering how I could do it to read from the file when the Form is opened? So I could get the account info.

Thanks though!