با این تکه کد می توانید از اجرای مجدد برنامه خودداری کنید.

 ( فقط کافی است کد را در رویداد فرم لود ( Form Load ) ) بنویسید.

Private Sub Form_Load()

If App.PrevInstance = True Then

    Call MsgBox("This program is already running.", , "Ali Shiri")

     End

End If

End Sub