Lines Matching refs:retval
95 Dim retval As Long ' return value variable
102 retval = RegCreateKeyEx(hKey, strPath, 0, "", 0, KEY_WRITE, _
104 If retval = 0 Then
105 retval = RegCloseKey(hKey)
124 Dim retval As Long ' return value variable
131 retval = RegCreateKeyEx(hKey, strPath, 0, "", 0, KEY_WRITE, _
133 If retval = ERROR_SUCCESS Then
247 Dim retval As Long variable
251 retval = RegOpenKeyEx(HKEY_CURRENT_USER, subpath, 0, KEY_WRITE, hKey)
252 If retval = ERROR_SUCCESS Then
253 retval = RegDeleteValue(hKey, AccessVBOM)
254 retval = RegCloseKey(hKey)