你好，vb已经打开一个程序，打第二个相同程序则关闭

判断重复打开可在窗体load事件加入如下代码：

If App.PrevInstance Then End

上述代码中App.PrevInstance用于判断是否已经有前一个应用程序实例在运行

至于激活并正常显示，可以使用API寻找窗口句柄来实现

行得通啊。代码如下：

Private Sub Form_Load()

If App.PrevInstance = True Then

'这里是你要执行的内容（关闭程序的语句）

End If

End Sub

1楼你说什么呀。楼主别理它！

这个原因跟桌面主题有关。

如果VB的Form窗体背景颜色(BackColor)使用的是系统颜色，就可能出这种问题。

比如说：BackColor使用的是“按钮表面”颜色，不同的桌面主题对于“按钮表面”设置是不一样的，在不同的电脑上显示也会不一样。

你可以改变一下桌面主题试试。

如果程序是你自己设计的，要使在不同的电脑呈现相同的颜色，最好用“调色板”里面的颜色。

---