Why, I open the program by automation in the pcdmis2015.1 version, PCDMIS from online mode to offline mode, but can be opened and executed normally in 2014.1. The code is as follows: Private Sub Command1_Click() Set DmisApp = CreateObject("PCDLRN.Application") If DmisApp Is Nothing Then MsgBox "Becouse Open PC-DMIS" End End If Set DmisParts = DmisApp.PartPrograms Call DmisParts.Open("C:\Users\Public\Documents\WAI\PC-DMIS\2015.1\t3.PRG", CMM1) Set Dmispart = DmisApp.ActivePartProgram Set DmisCommands = Dmispart.Commands CommandCount = DmisCommands.Count Set DmisCommand = DmisCommands.Item(CommandCount) DmisCommands.InsertionPointAfter DmisCommand Dmispart.EXECUTE End Sub '' automatio' for pcdmis2015.1
