再问一个问题，如何用VB解决禁止多个实例运行？

Question

这恐怕必须用API函数来解决.
先用findwindow得到你的程序窗口句柄.
hwnd=findwindow(vbnullstring,"你的窗体的caption")
然后 用showwindow把控制权交给它.
showwindow(hwnd,1) 即可.

Answer 1

1。如果是想把已经有的实例关闭，
    api函数 FindWindow , SetForegroundWindow , PostMessage (自己查一下它们的定义)
 
    dim hWnd as long
    hWnd=FindWindow(vbnullstring,要查找的窗口标题）
    setforegroundwindow hWnd
    postMessage hWnd,WM_CLOSE,……     用FindWindow的方法不是很好，因为有时窗口标题会变，要做得更完善的话，要用其它API函数，不过比较复杂了，这里不便详述2。如果是发现已经有实例在运行，则还让该实例打开新文件，可以这样做：
   自己编写callback函数，
   在sub main()中判断 app.preinstance ，如果有实例在运行，则发送一个消息给前实例，使其做相应的动作