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\Rename.xslt")

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

End

End Sub

End Class