[مصمم هاوي]

ضع هذا الكود في مديول

كود :

Public Sub IsAppRunning()
 If App.PrevInstance = True Then
   MsgBox "البرنامج قيد التشغيل", vbExclamation + vbMsgBoxRtlReading
 End
 End If
End Sub