[elgokr]

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

اضافة لما قدمه اخى حريف برمجة

للحل الانسب لما تريده فعلاً 

وحتى تعم الفائدة اذا كنت تريد تنفيذ الامر من خلال كود

يمكنك وضع الكود التالى فى لود فورم الرئيسي عند فتح البرنامج

كود :

       Dim myApp As String = My.Application.Info.ProductName
       Dim CheckApp As Process() = Process.GetProcessesByName(myApp)
       If CheckApp.Count <> 0 Then
           ' كود اذا كان البرنامج يعمل
       Else
           ' اذا كان البرنامج لا يعمل
       End If

تحياتى لك

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