الرجاء المساعدة في تشغيل البرنامج

ابسط الطرق و لكن غير فعاله بكل الحالات خصوا لو ان بداية البرنامج طويلة هى الـ App.PrevInstance و هى تعود بـ True لو كان البرنامج يعمل او False اذا كان لا يعمل.

مثال من كتاب للـ VB

Private Sub Form_Load()
	If App.PrevInstance Then
		' Another instance of this application is running.
		Dim saveCaption As String
		saveCaption = Caption
		' Modify this form's caption so that it isn't traced by
		' the AppActivate command.
		Caption = Caption & Space$(5)
		On Error Resume Next
		MsgBox "The program is alreay running. ", , "Error"
		AppActivate saveCaption
		' Restore the Caption, in case AppActivate failed.
		Caption = saveCaption
		If Err = 0 Then Unload Me
	End If
End Sub

فى طريقتين كمان بس واحده منهم ما ينفعش تجربها من جوه الـ IDE و التانية طويلة شوية.

شكرا أخي الكريم أنا مابعرف كيف أشكرك دائما تتحفني بردودك بس هاي المرةماظبطت

أريد محاولة ثانية

يبقى ننقل على الطريقة التانية و هى الـ Mutex , مرفق مثال بهذه المشاركة : /index.ph...st&p=612163