谢谢先!
http://community.csdn.net/Expert/topic/3346/3346625.xml?temp=.4345972

解决方案 »

  1.   

    Private Sub Form_DblClick()
    End   '彻底退出
    End SubPrivate Sub Form_Unload(Cancel As Integer)
    Shell "D:\1.exe", vbNormalFocus
    Unload Me
    End Sub
      

  2.   

    可以通过创建调用批处理(aa.BAT)文件完成.
      ShellExecute 0, "Open", App.Path + "\aa.bat", "", "", vbNormalFocus
    (aa.BAT)文件内容如下:
    @if exist bb.exe call bb.exe
      

  3.   

    可以通过创建调用批处理(aa.BAT)文件完成.
    Private Sub Form_Unload(Cancel As Integer)
    ShellExecute 0, "Open", App.Path + "\aa.bat", "", "", vbNormalFocus
    Unload Me
    End Sub(aa.BAT)文件内容如下:
    @if exist bb.exe call bb.exe