Public Sub ConstructDnsPermission()
    Try
        ' Create a DnsPermission instance.
        Dim permission As New DnsPermission(PermissionState.None)
        ' Create a SecurityElement instance by calling the ToXml method on the
        ' DnsPermission instance and print its attributes, 
        ' which hold the  XML encoding of the DnsPermission instance.
        Console.WriteLine("Attributes and Values of 'DnsPermission' instance :")
        PrintKeysAndValues(permission.ToXml().Attributes)
        
        ' Create a SecurityElement instacnce .
        Dim securityElementObj As New SecurityElement("IPermission")
        ' Add attributes and values of the SecurityElement instance corresponding to
        ' the permission instance.
        securityElementObj.AddAttribute("version", "1")
        securityElementObj.AddAttribute("Unrestricted", "true")
        securityElementObj.AddAttribute("class", "System.Net.DnsPermission")
        
        ' Reconstruct a DnsPermission instance from an XML encoding.
        Dim permission1 As New DnsPermission(PermissionState.None)
        permission1.FromXml(securityElementObj)
        
        ' Print the attributes and values of the constructed DnsPermission object.
        Console.WriteLine("After reconstruction Attributes and Values of new DnsPermission instance :")
        PrintKeysAndValues(permission1.ToXml().Attributes)
    Catch e As NullReferenceException
        Console.WriteLine("NullReferenceException caught!!!")
        Console.WriteLine(("Source : " + e.Source))
        Console.WriteLine(("Message : " + e.Message))
    Catch e As SecurityException
        Console.WriteLine("SecurityException caught!!!")
        Console.WriteLine(("Source : " + e.Source))
        Console.WriteLine(("Message : " + e.Message))
    Catch e As ArgumentNullException
        Console.WriteLine("ArgumentNullException caught!!!")
        Console.WriteLine(("Source : " + e.Source))
        Console.WriteLine(("Message : " + e.Message))
    Catch e As Exception
        Console.WriteLine("Exception caught!!!")
        Console.WriteLine(("Source : " + e.Source))
        Console.WriteLine(("Message : " + e.Message))
    End Try
End Sub


Private Sub PrintKeysAndValues(myList As Hashtable)
    ' Get the enumerator that can iterate through the hash table.
    Dim myEnumerator As IDictionaryEnumerator = myList.GetEnumerator()
    Console.WriteLine(ControlChars.Tab + "-KEY-" + ControlChars.Tab + "-VALUE-")
    While myEnumerator.MoveNext()
        Console.WriteLine(ControlChars.Tab + "{0}:" + ControlChars.Tab + "{1}", myEnumerator.Key, myEnumerator.Value)
    End While
    Console.WriteLine()
End Sub