VB命令只能打开一个

app.previnstance判断你的那个程序是否已经运行了。
下面是例子

Private Sub Form_Load()
If App.PrevInstance Then
MsgBox "程序不得重覆执行", vbokonly '值为True时，程序重覆执行
End
Else
MsgBox "程序第一次执行", vbokonly
End If
End Sub

有的软件由于要占用一段特定的内存地址，是不允许双开的，不然会报错，这个没办法，估计不是你自已编译的软件，如果有源码，这个问题很好解决

可以在程序打开时检查是否有某个特定文件（自己的标志文件），如果没有，就正常启动，并建立该文件，如果有，说明程序已经打开，就直接退出。最后在程序退出时，别忘了把那个文件删除。