[محمد العبيدي]

وعليكم السلام
اختي العزيزة بالنسبة للنقطة الاولى فيمكنك استخدام الدالة التالية:

كود :

     Public Sub AddToStartup(ByVal KeyName As String, ByVal ProgramPath As String)
           Dim Reg As Object
           Reg = CreateObject("Wscript.shell")
           Reg.RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & KeyName, ProgramPath)
     End Sub

حيث ان KeyName هو اسم الفايل الذي سيضاف ويمكن تسميته باي اسم كان لانه لغرض العرض فقط
اما ProgramPath فهو مسار الملف التنفيذي + اسم الملف وامتداده كان يكون:
C:\Users\Mohammed\Desktop\test.exe
ويمكن الحصول على هذا المسار من خلال الدالة التالي
Application.ExecutablePath