Obtener nombre de usuario logueado en un control ascx

dim usuario as string=HttpContext.Current.User.Identity.Name