Mega Code Archive

 

Categories / VB.Net / Network Remote

 

WebPermission Intersect returns intersection of two WebPermission instances

Imports System.Text.RegularExpressions Imports System.Net Imports System.Security.Permissions Module Example    Public Sub Main()        Dim myWebPermission1 As New WebPermission(PermissionState.None)        Dim myWebPermission2 As New WebPermission(PermissionState.None)        Dim myWebPermission3 As WebPermission = CType(myWebPermission1.Intersect(myWebPermission2), WebPermission)        Console.WriteLine(myWebPermission3.ToXml().ToString())    End Sub End Module