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.Union(myWebPermission2), WebPermission)
      Console.WriteLine(myWebPermission3.ToXml().ToString())
   End Sub
End Module