[dasktop]

مرحبا



كتبت كود لاضافة البرنامج في Startup




ويعمل عند تشغيل النظام

ولم يعمل ماهي المشكلة 

كود :

  Dim Reg As Object
       Reg = CreateObject("Wscript.shell")
       Reg.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & Application.ProductName, Application.ExecutablePath)