'本代码只能屏闭同一目录下的同一程序不重复运行 Private Sub Form_Load() If App.PrevInstance = True Then End end if End Sub