Dim rk As Microsoft.Win32.RegistryKey
 
        rk = Microsoft.Win32.Registry.LocalMachine.OpenSubKey("was immer...", _
          True)
 
        Dim rs As System.Security.AccessControl.RegistrySecurity
 
        rs = rk.GetAccessControl()
 
        Dim arc As System.Security.AccessControl.AuthorizationRuleCollection
        arc = rs.GetAccessRules(True, True, GetType( _
          System.Security.Principal.NTAccount))
        Dim ar As System.Security.AccessControl.RegistryAccessRule
        For Each ar In arc
            Debug.WriteLine(ar.AccessControlType.ToString() + " " + _
              ar.IdentityReference.Value + " " + ar.RegistryRights.ToString())
        Next