'Usage
Dim virtualPath As String
Dim user As IPrincipal
Dim verb As String
Dim returnValue As Boolean
returnValue = UrlAuthorizationModule.CheckUrlAccessForPrincipal(virtualPath, _
user, verb)
'Declaration
<SecurityPermissionAttribute(SecurityAction.Demand, Unrestricted := True)> _
Public Shared Function CheckUrlAccessForPrincipal ( _
virtualPath As String, _
user As IPrincipal, _
verb As String _
) As Boolean