كود لمنع تشغيل أكثر من نسخة من برنامجك

Private Sub Form_Load()
If App.PrevInstance = True Then
MsgBox "لا يمكن تشغيل أكثر من نسخة من البرنامج"
Unload Me
Exit Sub
End If
End Sub

مشكووووور جدا جدا