Dim userStore As New UserStore(Of IdentityUser)
        Dim roleStore As New RoleStore(Of IdentityRole, String, IdentityUserRole)(userStore.Context)
        Dim userManager As New UserManager(Of IdentityUser)(userStore)
        Dim roleManager As New RoleManager(Of IdentityRole)(roleStore)

        'Creo un ruolo
        Dim role As New IdentityRole("Amministratore")
        roleManager.Create(role)

        'Recupero un utente esistente
        Dim user = userManager.FindByName("Mario")

        'Aggiungo il ruolo all'utente
        Dim userRole = New IdentityUserRole With {.UserId = user.Id, .RoleId = role.Id}
        user.Roles.Add(userRole)

        'Salvo
        userManager.Update(user)

Dim user1 = userManager.FindByName("Mario")

Dim user1 = userManager.FindByName(UserName.Text)

Protected Sub CreateUser_Click(ByVal sender As Object, ByVal e As EventArgs)
    Dim userStore = New UserStore(Of IdentityUser)()
    Dim roleStore As New RoleStore(Of IdentityRole, String, IdentityUserRole)(userStore.Context)
    
    'Creo userManager e roleManager che sono gli oggetti da usare per gestire gli utenti e i ruoli
    Dim userManager = New UserManager(Of IdentityUser)(userStore)
    Dim roleManager As New RoleManager(Of IdentityRole)(roleStore)
    
    'Creo un nuovo utente
    Dim user = New IdentityUser() With {
        .UserName = UserName.Text
    }
    
    'Chiedo che il nuovo utente venga salvato nel database
    Dim userCreationResult As IdentityResult = userManager.Create(user, Password.Text)
    
    'Verifico se la creazione dell'utente nel database ha avuto successo
    If userCreationResult.Succeeded Then
        'L'utente è stato creato, mi preparo ad assegnare il ruolo all'utente
        Dim roleName = "Guest"
    
        'Verifico se il ruolo esiste nel database
        If Not roleManager.RoleExists(roleName) Then
            'Se non esiste lo creo
            Dim role As New IdentityRole(roleName)
            roleManager.Create(role)
        End If
    
        'Chiedo che il ruolo sia assegnato all'utente nel database
        Dim roleAssignmentResult = userManager.AddToRole(user.Id, roleName)
    
        'Verifico che l'assegnazione del ruolo all'utente si sia conclusa con successo
        If roleAssignmentResult.Succeeded Then
            'Tutto ok: il ruolo è stato assegnato all'utente
            StatusMessage.Text = String.Format("User {0} was created successfully and it was added to the {1} role", UserName.Text, roleName)
        Else
            'Si è verificato un errore nell'assegnare il ruolo all'utente
            'L'utente però era stato creato
            StatusMessage.Text = roleAssignmentResult.Errors.FirstOrDefault()
        End If
    Else
        'C'è stato un errore di creazione dell'utente
        StatusMessage.Text = userCreationResult.Errors.FirstOrDefault()
    End If
End Sub