[原文路径] http://www.extencent.com/show.asp?id=181
'这里，以添加启动项为例：Imports Microsoft.Win32Imports System.Reflection.Assembly   Private Sub SetAuto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetAuto.Click 'ok at 13-08-13 设置开机自动启动 Dim kReg As RegistryKey MsgBox("如果弹出添加启动项的警告，请允许本次添加操作", MsgBoxStyle.Information, "添加开机启动") kReg = Registry.LocalMachine kReg = kReg.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True) 'kReg.CreateSubKey("ThreadManager", RegistryKeyPermissionCheck.ReadWriteSubTree) '这个是给Run再添加一个ThreadManager子项 kReg.SetValue("ThreadManager", """" & GetExecutingAssembly.Location & """ autorun") '需要引用System.Reflection.Assembly，这个是给Run这个项，添加一个键值对 kReg.Close() kReg = Nothing End Sub'这里的这一段代码可以为你的程序在Run这个启动项中，添加一个键名为：ThreadManager，值为当前程序完整路径的键值对。完成将当前程序添加到启动项的目的。