How to delete all relationships of a TOP dimension member? (or orphans all members below a TOP mb)

Dim backgroundTask As TaskActivityItem = Nothing
				ZipFile.CreateFromDirectory($"{strRuleLocation}", $"{strRuleLocation.Replace("Directory","")}\Rules.zip")
				Dim bZipRules As Byte() = File.ReadAllBytes($"{strRuleLocation.Replace("Directory","")}\Rules.zip")
				
				'Execute the load as a Background Task
				backgroundTask = XmlLoadWcf.StartLoadXml(si, "",  bZipRules, "Rules.zip", SystemXmlFileType.Unknown, ApplicationXmlFileType.ApplicationZipFile, Nothing)
				

This is a rule I'm using to Zip multiple XMLs and load them. The XML option (2nd parameter) is the XML string (if you are using one XML. The 3rd one is useful if you are loading a zip file (a package). If you are loading an Application XML, then you can set the SystemXMLFileType to Unknown. I've not used XMLLoadOptions.