Imports System.Web.Profile
Partial Public Class AnaCreaUtenti
Inherits System.Web.UI.UserControl

Dim rolesArray() As String

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub CreateUserWizard1_CreatedUser(ByVal sender As Object, ByVal e As EventArgs) Handles CreateUserWizard1.CreatedUser
Dim p As ProfileCommon = DirectCast(ProfileCommon.Create(CreateUserWizard1.UserName, True), ProfileCommon)
p.Nome = Convert.ToString(DirectCast(CreateUserWizard1.CreateUserStep.ContentTemplateContainer.FindControl("txtNome"), TextBox).Text)
p.Save()
End Sub