كيف يمكن جعل البرنامج لا يفتح إلا نسخة واحدة

من خصائص My Project ومن صفحة Application ضع اشرة بجانب الخيار Make Single Instance Application هذا بالنسبة لـ 2005 و 2008 وبالنسبة لـ 2002 و 2003 استخدم محرك البحث للحصول على الإجابة

أنا أستخدم 2008

جزاك الله خيراً أخي محمد سامر أبو سلو 

ولكن يا أخي بإمكان المستخدم نسخ الملف وفي هذه الحالة لن تنفعك App.PrevInstance

سجل هذا الكود داخل حدث myapplication_startupnextinstance

في كلاس ApplicationEvents الخاص بالبرنامج

 Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance
			Dim inputArgument As String = "/input="
			Dim inputName As String = ""
			For Each s As String In e.CommandLine
				If s.ToLower.StartsWith(inputArgument) Then
					inputName = s.Remove(0, inputArgument.Length)
				End If
			Next
			If inputName = "" Then
				MsgBox("لا يسمح بتشغيل اكثر من نسخة واحدة " & vbCrLf & "يوجد نسخة من هذا البرنامج تعمل حالياً", MsgBoxStyle.Critical Or MsgBoxStyle.MsgBoxRight, "تعدد النسخ")
			Else
				MsgBox("Input name: " & inputName)
			End If

		End Sub