Dim id As System.Web.Security.FormsIdentity = DirectCast(HttpContext.Current.User.Identity, System.Web.Security.FormsIdentity)
Dim strUsername As String = id.Name