The following code will open pcdmis 2014.1, 32 bit, execute a program and close pcdmis.
1) How can I make pcdmis visible? Seems like "PCDApp.visible = True" doesn't do anything.
2) How can I make the application moveable when pcdmis is running? The application can be moved around the screen before and after pcdmis runs, but not during.
Dim PCDApp, PCDPartPrograms, PCDPartProgram
PCDApp = CreateObject("PCDLRN.Application")
PCDApp.visible = True
PCDPartPrograms = PCDApp.PartPrograms
PCDPartPrograms.Open("c:\test.PRG", "CMM1")
PCDPartProgram = PCDApp.ActivePartProgram
PCDPartProgram.Execute()
PCDPartProgram.Close()
PCDApp.Quit()
