Dim pcd_app As PCDLRN.Application Dim pcd_partprogram As PCDLRN.PartProgram Dim pcd_command As PCDLRN.Command Dim pcd_commands As PCDLRN.Commands Set pcd_app = CreateObject("pcdlrn.application") pcd_app.Visible = True Set pcd_partprogram = pcd_app.ActivePartProgram pcd_partprogram.Visible = True Set pcd_commands = pcd_partprogram.Commands Set pcd_command = pcd_commands.Add(CONST_INT_POINT, True) pcd_command.PutText "PT15", ID, 0 pcd_command.PutText "PT1", REF_ID, 1 pcd_command.PutText "PT2", REF_ID, 2 pcd_command.ReDraw