Imports Telerik.WinControls
Imports Telerik.WinControls.UI
Imports System.IO

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ThemeResolutionService.ApplicationThemeName = "Office2010Blue"
    End Sub

    Private Sub Buttonregister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonregister.Click
        If (TextBoxpassword.Text = Nothing Or TextBoxusername.Text = Nothing) Then
            RadMessageBox.Show("All fields should be filled with proper information")
        Else
            Dim FileWriter As StreamWriter
            FileWriter = New StreamWriter(My.Application.Info.DirectoryPath + "\" + TextBoxusername.Text, False)
            FileWriter.Write(TextBoxusername.Text + vbCrLf + TextBoxpassword.Text)
            FileWriter.Close()
            RadMessageBox.Show("You have succesfully created an account" + vbCrLf + "Please Sign In now")
            Form2.Show()
            Me.Hide()
        End If
    End Sub

    Private Sub RadButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadButton1.Click
        Form2.Show()
        Me.Hide()
    End Sub
End Class