Register: If TextBox3.Text = TextBox2.Text Then
            My.Settings.User = TextBox1.Text
            My.Settings.Pass = TextBox2.Text
            My.Settings.Save()
            MsgBox("Create Account", MsgBoxStyle.Information, "Register")
            Form2.Show()
        Else
            MsgBox("Паролите не съвпадат", 0, "Грешка!")
            TextBox3.Clear()
        End If




Login:    If TextBox1.Text = My.Settings.User And
        TextBox2.Text = My.Settings.Pass Then
            MsgBox("Браво майна", 0, "к")
        Else
            MsgBox("Missing Username or Password", MsgBoxStyle.Information, "Error")
        End If