Dim dirSecurity As DirectorySecurity = Directory.GetAccessControl( _
          "C:\AccessTest")
 
        Dim everyOne As New NTAccount("everyone")
 
        Dim rule As New FileSystemAccessRule(everyOne, _
            FileSystemRights.FullControl, _
            InheritanceFlags.ContainerInherit Or _
            InheritanceFlags.ObjectInherit, _
            PropagationFlags.None, _
            AccessControlType.Allow)
 
        dirSecurity.AddAccessRule(rule)
        Dim dirInfo As DirectoryInfo = New DirectoryInfo(dir)
        dirInfo.SetAccessControl(dirSecurity)

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov