فقط ۲۵ بار برنامه اجرا بشه !؟

کد ، برنامه که در حال اجرا  دوباره نتوان اجرا کرد ؟

کی  داره

Sub main()
If App.PrevInstance = True Then
MsgBox "برنامه در حال اجرا میباشد ", vbCritical, "Error"
End
End If
End Sub

Private Sub Form_Load()
Call main
End Sub