جلو گیری از اجرای مجدد برنامه!

[[Moosa]]

سلام
میدونم همتون استادین گفتم شاید واسه یه نفر به درد بخوره در ضمن باید یکم ارسالی هامو زیاد کنم دیگه...

منظورم از اجرای مجدد اینه که کاربر نتونه برنامه شما رو همزمان چند بار اجرا کنه
که یه کد خیلی ساده است ولی کاربردی!

مثلا برای اینکه بعد از اجرای مجدد یه پیغامی بده این کد رو تو Form_load بنویسید:

Private Sub FrmMain_Load()
If App.PrevInstance = True Then m = MsgBox("Program is Running...", vbExclamation + vbOKOnly, "Error"): End
End Sub