PHP كود :
If New Process().GetProcessesByName(IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)).Count > 1 Then End
افضل حدث لهذا الكود هو ضمن ملف ApplicationEvents حدث StartUp
لكن ايضا ينفع مع حدث Load لفورم البداية هذا في الدوت نت
اما vb6.0
اضف موديول واضف Sub Main واجعله هو الاول لبدء التشغيل وهذه الفكرة استفدت منها في مثالي الاخير في vb6.0
معذرة بخصوص vb6.0 قصدت الحدث وليس الكود فهو يختلف.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير