هذا كود بسيط و حلو ومهم جداً
If App.PrevInstance = True ThenMsgBox "هذا البرنامج قيد التشغيل !", vbCritical, "Fallout[]"EndEnd if