Private Function CreateAuthTicket(ByVal userName As String, ByVal roles As String, _
ByVal persistent As Boolean) As FormsAuthenticationTicket
Return New FormsAuthenticationTicket(1, userName, DateTime.Now, _
DateTime.Now.AddMinutes(60), persistent, roles)
End Function
Private Function CreateAuthCookie(ByVal authTicket As FormsAuthenticationTicket) As HttpCookie
Return New HttpCookie(FormsAuthentication.FormsCookieName, _
FormsAuthentication.Encrypt(authTicket))
End Function