Create_Account

Imports System.IO
Imports System.Text
Public Class Create_Account

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Private Sub btnMaak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaak.Click
        Dim objFileStream As New System.IO.FileStream("C:\usersettings.txt", IO.FileMode.Create, IO.FileAccess.Write)
        Dim objStreamWriter As New System.IO.StreamWriter(objFileStream)

        objStreamWriter.WriteLine(txtNaam.Text)

        objStreamWriter.Close()
        objFileStream.Close()

        ReadName()
        Leren.btnMaak.Visible = True
        Me.Close()
    End Sub

    Private Sub ReadName()
        Dim objFileStream As New System.IO.FileStream("C:\usersettings.txt", FileMode.Open, FileAccess.Read)
        Dim objStreamReader As New System.IO.StreamReader(objFileStream)

        Leren.btnMaak.Text = objStreamReader.ReadToEnd

        objStreamReader.Close()
        objStreamReader.Close()
    End Sub
End Class