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