Source: XSLT.frm

Visual Basic Source File (XSLT.frm)

Private Function CreateDOM()
    Dim dom
    Set dom = New DOMDocument50
    dom.async = False
    dom.validateOnParse = False
    dom.resolveExternals = False
    Set CreateDOM = dom
End Function

Private Sub Form_Load()
    Dim doc, xsl, out, str
    
    Set doc = CreateDOM
    doc.Load App.Path + "\test.xml"
    
    Set xsl = CreateDOM
    xsl.Load App.Path + "\test.xsl"
    
    str = doc.transformNode(xsl)
    MsgBox "doc.transformNode: " + vbNewLine + str
        
    Set out = CreateDOM
    doc.transformNodeToObject xsl, out
    MsgBox "doc.transformNodeToObject:" + vbNewLine + out.xml
End Sub

To add XSLT.frm to the project

• Copy the code listing above. Paste it into the Visual Basic code editor as the form_load subroutine, replacing any code fragments that are already there.

Next, we'll add the resource files to the project.