VB操作注册表的一个问题

不用API，可以这样：

Shell "reg add HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v [你的启动项标题] /t REG_SZ /d [你的启动项路径]"

第一种是一楼说的那样.
第二种:
Dim shl As Object
Set shl = CreateObject("WScript.Shell")
shl.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\你的启动项标题",你的启动项路径
第三种用API硬上:
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 RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const REG_SZ = 1
...
Dim phKey As Long
Dim strTitle As String &#