Network Remote VB.Net

Imports System.Text.RegularExpressions
Imports System.Net
Imports System.Collections
Imports System.Collections.Generic
Module Example
    Public Sub Main()
        Dim myRegex As New Regex("http://www\.domain\.com/.*")
        Dim myWebPermission As New WebPermission(NetworkAccess.Connect, myRegex)
        myWebPermission.AddPermission(NetworkAccess.Connect, "http://www.domain.com")
        myWebPermission.AddPermission(NetworkAccess.Accept, "http://www.domainA.com/")
        myWebPermission.Demand()
        Dim myConnectEnum As IEnumerator = myWebPermission.ConnectList
        While myConnectEnum.MoveNext()
            Console.WriteLine((ControlChars.Tab + myConnectEnum.Current.ToString()))
        End While
    End Sub
End Module