انا الا اريد البرنامج يفتح اكثر من نسخه واحده ؟؟؟

جرب هذا الكود

ضع هذه الشفرة في التعريف العام أو في مديول

Function AnotherInstance() As Integer
	Dim AppTitle$
	If App.PrevInstance Then
			  AppTitle$ = App.Title
		   App.Title = "No longer want this app running..."
		  AppActivate AppTitle$
		  AnotherInstance = True
	Else
		AnotherInstance = False
	End If
End Function

وهذا في حدث التحميل للفورم

Sub Form_Load()
	   If AnotherInstance() Then End
 End Sub

السلام عليكم

ضع هذا الكود في حدث تحميل الفورمة ( الفورمة الرئيسية طبعا )

If App.PrevInstance = True Then

MsgBox "You can't open two copy of this program"
Unload Me
Exit Sub
End If

وقولي ....

بدون اي حاجة تانية

يعني ما تكتبش اي فنكشن ولا حاجة

يعني كل اللي عليك هاتكتب الكود اللي قلتلك عليه بس