VB.net & VB6 Programı Başlangıca Ekleme

VB.net;

Imports Microsoft.Win32
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Registry.CurrentUser.CreateSubKey("SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN").SetValue(Application.ProductName.ToString, Application.ExecutablePath.ToString)
    End Sub
End Class

VB6;

Dim Startup As Object
Set Startup = CreateObject("WScript.Shell")
Startup.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\baslangictest", App.Path & "\" & App.EXEName & ".exe"