如果简单的就用saveseting函数了， 否则就用注册表里的几个函数了

Public Declare Function RegCloseKey Lib "advapi32.dll" _
(ByVal hKey As Long) As Long ' 关闭RegCreateKey打开的键
Public Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
phkResult As Long) As Long ' 打开键
Public Declare Function RegSetValue Lib "advapi32.dll" Alias "RegSetValueA" _
(ByVal hKey As Long, _
ByVal lpSubKey As String, _
ByVal dwType As Long, _
ByVal lpData As String, _
ByVal cbData As Long) As Long '写入启动值

Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" ( _
ByVal hKey As Long, _
ByVal lpSubKey As String) As Long '删除加入的键值

Public Const HKEY_CURRENT_MACHINE = &H80000002
Public Const REG_SZ = 1