Private Sub Btn_register_Click(sender As Object, e As EventArgs) Handles Btn_register.Click
    Dim userStore = New UserStore(Of IdentityUser)()
    Dim manager = New UserManager(Of IdentityUser)(userStore)
    Dim user = New IdentityUser() With {.UserName = txt_username.Text, .Email = txt_email.Text}
    user.EmailConfirmed = False
    Dim result As IdentityResult = manager.Create(user, txt_password.Text)

    If result.Succeeded Then
        Dim mes As New MailMessage(New MailAddress("v.profits1@gmail.com", "Account Confirm"), New MailAddress(user.Email))
        mes.Subject = "Email confirmation"
        mes.Body = String.Format("Dear {0} <br/>
        Thank you for registration")
        mes.IsBodyHtml = True
        Dim smtp = New SmtpClient("smtp.gmail.com")
        smtp.Credentials = New NetworkCredential("v.profits1@gmail.com", "#########")
        smtp.Port = 467
        smtp.Host = "smtp.gmail.com"
        smtp.DeliveryMethod = SmtpDeliveryMethod.Network
        smtp.EnableSsl = True
        smtp.Send(mes)
    Else
        lbl_status.Text = result.Errors.FirstOrDefault
    End If

End Sub