Cum Sa Adaug programul in Startup ?

Salutare.As avea nevoie de putin ajutor vreau sa fac un program in care sa ai o optiune cu care il poti baga in startup .. si as vrea in Registry / Services / si Startup folderu ms anticipat

pai in registri scrii la HKLU/Software/Microsoft/Windows/Run un key cu numele care il vrei tu, si valoarea: Path-ul fisierului care vrei sa porneasca odata cu windowsul.

sau faci o scurtatura (cu extensia .lnk) spre program si plasezi aceasta scurtatura in c:\Documents and Settings\All Users\Start Menu\Programs\Startup\scurtatura ta.lnk

dupa caz, daca windowsul este instalat pe partitia D, vei avea: D:\documents...\scurtatura ta.lnk

daca ai mai multi useri si vrei sa porneasca DOAR la un anume user, vei folosi:
c:\Documents and Settings\USER nume\Start Menu\Programs\Startup\...

nu ai inteles nimic din ce am zis .... eu vreau din aplicatia facut in visual basic ....

Option Explicit
Const REG_SZ = 1
Const REG_BINARY = 3
Const REG_DWORD = 4

Public Const HKEY_LOCAL_MACHINE = &H80000002

' the Functions for Registry Manipulations
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long

Public Sub SaveStringWORD(hKey As Long, strPath As String, strValue As String, strData As String)
	Dim Ret
	'Create a new key
	RegCreateKey hKey, strPath, Ret
	'Set the key's value
	RegSetValueEx Ret, strValue, 0, REG_DWORD, CLng(strData), 4
	'close the key
	RegCloseKey Ret
End Sub

cam asta ar fi. si scrii in registry unde ti-a zis adynis