سؤال غلبني كثيييير

السلام عليكم

أقوم بعمل برنامج يعمل على تحميل التحديثات للويندوز اوتوماتيكيا

بحيث أقوم بتحميل التحديثات من موقع ميكروسوفت وأقوم بنسخها في ملف واحد

بحيث يعمل برنامجي على تشغيل هذه التحديات عند تشغيل الجهاز ولابد بعد الإنتهاء من تحميل التحديثات عمل ريستارت للجهاز

واريد ان يقوم البرنامج اوتوماتيكيا بعمل ريستارت بعد الإنتهاء من عمل التحديثات

لكن المشكله

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

اريد عندما ينتهي البرنامج من تشغيل جميع التحديثات أن يقوم بعمل ريستارت للجهاز

أنا استخدم الكود التالي لتشغيل التحديثات

For i= 0 To List3.ListCount - 1
    path = "C:\Patch2000\Pa\" & List3.List(i)
    retval = Shell(path, vbNormalFocus)     
Next i

    Dim a As String
    a= Shell("C:\Patch2000\restart.exe")

بحيث List3 تحتوي على أسماء التحديثات

والملف restart.exe يقوم بعرض رسالة أن الجهاز سوف يقوم بعمل ريستارت بعد 60 ثانيه ويبدأ العد التنازلي

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

ما اريده عمل ريستارت بعد الإنتهاء من تحميل التحديثات