Imports System.Xml.Xsl

 

Public Class Form1

 

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 

        Dim XTransform As New XslCompiledTransform()

 

        XTransform.Load("c:\XML L7 Finished\XSL\XSL\Add Element.xslt")

 

        XTransform.Transform("c:\XML L7 Finished\XSL\XSL\car parts.xml", "c:\XML L7 Finished\XSL\New Parts Add.xml")

 

        End

 

    End Sub

End Class