Dim PermSet As PermissionSet
Public Overridable Function SetPermission(ByVal perm As IPermission) As _
  IPermission
        PermSet.SetPermission(New EnvironmentPermission( _
        EnvironmentPermissionAccess.AllAccess, "administrator"))
    End Function