'BeforeOpenProject事件:
Dim sucess As Boolean = Falsestatic mu As new System.Threading.Mutex(True, "dsdfhdfghf", sucess)If not sucess Then MessageBox.Show("只能打开一次!") e.Cancel = TrueEnd If