SHOW:
|
|
- or go back to the newest paste.
| 1 | Register button: | |
| 2 | My.Settings.Username = TextBox1.Text | |
| 3 | My.Settings.Password = TextBox2.Text | |
| 4 | My.Settings.Save | |
| 5 | MsgBox("Create Account", MsgBoxStyle.Information, "Register"
| |
| 6 | Form1.Show() | |
| 7 | ||
| 8 | Login button: | |
| 9 | if TextBox1.Text = My.Settings.Username And | |
| 10 | TextBox2.Text = My.Settings.Password Then | |
| 11 | Form3.Show() | |
| 12 | Else | |
| 13 | Msgbox("Missing Username or Password", MsgBoxStyle.Information, "Error")
| |
| 14 | End if |
