Sub AddFileSecurity(ByVal fileName As String, ByVal account As String, _
        ByVal rights As FileSystemRights, ByVal controlType As _
        AccessControlType)
 
        Dim fSecurity As FileSecurity = File.GetAccessControl(fileName)
 
        Dim RemoveRule As FileSystemAccessRule = _
                    New FileSystemAccessRule(account, Nothing, Nothing)
 
        fSecurity.RemoveAccessRuleAll(RemoveRule)
 
        File.SetAccessControl(fileName, fSecurity)