Network Remote VB.Net

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