Register button:
My.Settings.Username = TextBox1.Text
My.Settings.Password = TextBox2.Text
My.Settings.Save
MsgBox("Create Account", MsgBoxStyle.Information, "Register"
Form1.Show()

Login button:
if TextBox1.Text = My.Settings.Username	And
	TextBox2.Text = My.Settings.Password Then
	Form3.Show()
	Else
	Msgbox("Missing Username or Password", MsgBoxStyle.Information, "Error")
End if