请高手指教如让自编的程序只能运行一次？

[3circles]

如只能在当前程序终止运行后才可重新运行或自动转向当前程序，请具体点，ＴＫＳ！

[xzygod]

app.hInstance

[guipei]

Private Sub Form_Load()
If App.PrevInstance = True Then
End
Exit Sub
End If
End Sub
vb中比较简单。