Code:

Option Explicit

Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) 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
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal  samDesired As Long, phkResult As Long) As Long

Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001
Const REGPATH = "Software\Microsoft\Windows\CurrentVersion\Run"
Const KEY_WRITE = &H20006
Dim Path As Long

Private Sub Command1()_Click
'Pritiskom na Command1 pravis kljuc sa Lokacijom i imenom tvog programa koji ce biti pokrenut sa startom Win-a.
If RegOpenKeyEx(HKEY_CURRENT_USER, REGPATH, 0, KEY_WRITE, Path) Then Exit Sub
RegSetValueEx Path, App.Title, 0, REG_SZ, ByVal App.Path & "\" & App.EXEName & ".exe", Len(App.Path & "\" & App.EXEName & ".exe")
End Sub

Private Sub Command2()_Click
'Pritiskom na Command2 brises kljuc o podacima programa koji bi trebao da se startuje.
If RegOpenKeyEx(HKEY_CURRENT_USER, REGPATH, 0, KEY_WRITE, Path) Then Exit Sub
RegDeleteValue Path, App.Title
End Sub