این کد می تونه کمکت کنه.
private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long;
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 RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long;
private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey 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;
private void SaveString(string strPath,string strValue,string strdata)
{
long keyhand;
long r;
r = RegCreateKey(HKEY_LOCAL_MACHINE, strPath, keyhand);
r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strdata, Len(strdata));
r = RegCloseKey(keyhand);
}