Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Sub Command1_Click()
Dim oDOM As DOMDocument40
Dim oElem As IXMLDOMElement
Set oDOM = New DOMDocument40
oDOM.appendChild oDOM.createElement("XROADS")
Set oElem = oDOM.createElement("ITEM")
oDOM.documentElement.appendChild oElem
oElem.setAttribute "Desc", "Name & Description"
oElem.setAttribute "Date", "01/01/2001"
oElem.setAttribute "Comment", "Percentage growth is < 20%"
Set oElem = Nothing
Text1.Text = oDOM.xml
Set oDOM = Nothing
End Sub
' this gives me the following in the Text Box:
'
'<XROADS><ITEM Desc="Name & Description" Date="01/01/2001" Comment="Percentage growth is < 20%"/></XROADS>