用注册表嘛vb代码！'---------------处理注册表的函数-----------------------Const HKEY_CURRENT_USER = &H80000001Const REG_SZ = 1Private 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 LongPrivate
