怎么插入语句使得多次（双击）打开同一个可执行文件时程序打开多次！

Question

怎么插入语句使得多次（双击）打开同一个可执行文件时程序打开多次！
这可能要用上API和注册表！~
谢谢高手指点！！！！！

Answer 1

不明白，只要在Form_Load里不加判断，打开N次都可以直至死机

Answer 2

do
  shell "notepad.exe"
loop

Answer 3

是不许打开多次吧？
若是，如下即可：
If App.PrevInstance Then
        rst = MsgBox("警告你已运行此程序", vbExclamation + vbOKOnly）
        End
        Exit Sub
    Else

Answer 4

楼主的意思也许和ifshif的意思一样，也就是无需加任何代码。