Dim pcd_app As PCDLRN.ApplicationDim pcd_partprogram As PCDLRN.PartProgramDim pcd_command As PCDLRN.CommandDim pcd_commands As PCDLRN.CommandsSet pcd_app = CreateObject(pcdlrn.application)pcd_app.Visible = TrueSet pcd_partprogram = pcd_app.ActivePartProgr