كود عقدني تعقيد

يا اخوان كل الموضوع انه هذا الكود هو عباره عن كود يفل لك اي برنامج تريده في الجهاز طبعا برنامج محدد

المشكله وين المشكله انه يوم يكون البرنامج المحدد شغال وتشغل الكود يطفي البرنامج المحدد وهذا شي طبيعي

بس المشكله انه لو ما كان البرنامج المحدد شغال ممممممممممممممم هني اول ما تشغل الكود يقفل مباشره الفورم الي فيه الكود

يعني انا اريد واحد يحاول لعب بلكود بحيث يبقى الفورم مال الكود شغال وقدام عيني لو كان البرنامج المحدد شغال او مب شغال

هذا كل الموضوع وإن شاء الله فهمتوا قصدي

وهذا الكود

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" _

(ByVal hwnd As Long, ByVal wMsg As Long, _

ByVal wParam As Long, lParam As Any) As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _

(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const WM_QUIT = &H12

Private Sub Form_Load()

Dim lngQuit As Long, hWndProg As Long

hWndProg = FindWindow(vbNullString, "البرنامج المحدد طبعا")

lngQuit = PostMessage(hWndProg, WM_QUIT, 0&, 0)

End Sub

يا ريت يا اخوان المساعد فيه صارلي اسبوع اقلبه يمين يسار بدون فايده