1.加载XML文档 
Dim objDoc As New XmlDocument() 
objDoc.Load("Sample.xml") 
2.返回MenuItem为6666666的MenuItem节点 
objNode = objDoc.SelectSingleNode("MenuData/MenuGroup/MenuItem[text()='6666666']") 
3.获得父节点objParentNode=objNode.ParentNode
4.删除子节点
objParentNode.RemoveChild(objNode)