如何实现：每次只能有该程序的一个实例在运行，并且如果已经有该程序的实例在运行，就激活它？

Question

用一个变量标识，1就是已经调用，0就是没有调用，如果是1则用API函数SET，忘了，你去查一下吧，设置成当前活动窗口的。

Answer 1

If App.PrevInstance Then
   Unload Me
end if
一定要给分哦！

Answer 2

关键是如何取得另一个已经在运行的实例的句柄？
Jneu没看明白我的问题。

Answer 3

我知道了：AppActive 函数。

Answer 4

private sub form_load(..)
If App.PrevInstance Then
  Unload Me
end if
end sub