Dim App As Object
Dim Parts As Object
Dim Part As Object
Set App = CreateObject("PCDLRN.Application")
Set Parts = App.PartPrograms
Parts.Open(sFilePath, "CMM1")
[b]Set Part = App.ActivePartProgram[/b]
Part.Execute
Part.Close
App.Quit
Set App = Nothing
Dim App As Object
Dim Parts As Object
Dim Part As Object
Set App = CreateObject("PCDLRN.Application")
Set Parts = App.PartPrograms
Parts.Open(sFilePath, "CMM1")
[b]Set Part = App.ActivePartProgram[/b]
Part.Execute
Part.Close
App.Quit
Set App = Nothing
