Option Explicit
Option Strict
Imports System
Imports System.Xml
Imports Microsoft.VisualBasic
Public Class Sample
Public Shared Sub Main()
Dim doc As New XmlDocument()
doc.LoadXml("" & _
"A " & _
"B " & _
" ")
Console.WriteLine(doc.DocumentElement.InnerText)
Dim currNode as XmlNode = doc.DocumentElement
Dim ws As XmlWhitespace = doc.CreateWhitespace(ControlChars.CrLf)
currNode.InsertAfter(ws, currNode.FirstChild)
Console.WriteLine(doc.DocumentElement.InnerText)
End Sub
End Class 'Sample