Imports System.Text.RegularExpressions
Imports System.Net
Imports System.Security.Permissions
Imports System.Collections
Imports System.Collections.Generic
Module Example
Public Sub Main()
Dim myWebPermission1 As New WebPermission(PermissionState.None)
myWebPermission1.AddPermission(NetworkAccess.Connect, "http://www.microsoft.com/default.htm")
myWebPermission1.AddPermission(NetworkAccess.Connect, "http://www.msn.com")
myWebPermission1.Demand()
Dim myEnum1 As IEnumerator = myWebPermission1.AcceptList
While myEnum1.MoveNext()
Console.WriteLine((ControlChars.Tab + "The URI is : " + myEnum1.Current))
End While
End Sub
End Module