方法1.你建立一个模块,在模块中的 Sub Main() 中写启动代码,不要用窗口,注意调用另外一个程序成功后要用 END 结束自身程序。(下面方法2也一样)
方法2.Private Sub Form_Load()Dim RetVal
RetVal = Shell("C:\Program Files\EDMS\EDMS.exe", 0)
if RetVal <>0 then End
End Sub
方法2.Private Sub Form_Load()Dim RetVal
RetVal = Shell("C:\Program Files\EDMS\EDMS.exe", 0)
if RetVal <>0 then End
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货