[elgokr]

وعليكم السلام ورحمة الله وبركاته

لعدم فتح المشروع اكثر من مرة

وعند اتمام فتحه المرة الثانية يتم عمل Focus على البرنامج الشغال

كل ما علك استخدام الاتى

قم باذافة الكود

كود :

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As IntPtr

من ثم استخدام الكود التالى فى حدث اللود

كود :

       Dim App As Process() = Process.GetProcessesByName("WindowsApplication1")
       If App.Length > 1 Then
           SetForegroundWindow(App(1).MainWindowHandle)
           ' يمكنك وضع رسالة هنا
           Close()
       End If

او يمكنك استخدام الكود التالى بدون وضع السطر المستقل ببداية الرد

كود :

       Dim App As Process() = Process.GetProcessesByName("WindowsApplication1")
       If App.Length > 1 Then
           AppActivate(App(1).Id)
           ' يمكنك وضع رسالة هنا
           Close()
       End If

وضعت لك الاثنين طبقاً لاصدار  .NET Framework فى المشروع

وللمعلومة اكثر عن هذا الكود

https://docs.microsoft.com/en-us/dotnet/...tem_Int32_

تحياتى لك

وتمنياتى لك التوفيق