VB中App.PrevInstance 可以用来判断当前程序是否已经执行。
在Form_Load 中加入下面得代码，或者（推荐）放在Sub Main()中
要打开第一次运行得窗口 也就是要激活它。
If App.PrevInstance Then
'程序实例已经运行
dim mHwnd as long
mHwnd= FindWindow(vbNullString, "程序名") '查找窗口句柄
SetActiveWindow mHwnd '激活窗口
End IF
说明：
SetActiveWindow和FindWindow是API函数，到API浏览器里面可以声明函数。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024