急！如何不允许程序同时打开两个。

Question

Private Sub Form_Load()
If App.PrevInstance Then
    End
End If
End Sub

Answer 1

Sub Main()
If App.PrevInstance Then
    End
End If
form1.show
end sub

Answer 2

首先加入一个模块，加入代码
Sub Main()
If App.PrevInstance Then
    End
End If
form1.show
end sub
把工程属性中的启动对象设为Main

Answer 3

首先加入一个模块，加入代码
Sub Main()
If App.PrevInstance Then
    End
End If
form1.show
end sub
把工程属性中的启动对象设为Main

Answer 4

if app.PrevInstance then
   end
end if