Работа с параметром DWORD в реестре на vb????

Формулировка задачи:

Везде полно статей как запихнуть в реестр строковые параматры, но как присвоить параметру –DWORD, значение…??? очень нужно...

Решение задачи: «Работа с параметром DWORD в реестре на vb????»

textual
                            Листинг программы 
                        

                            Public Const DWORD = 4 ' 4-byte number stored in DWORD_LITTLE_ENDIAN format
 
Public Function SetDWordValue(hKey As Long, sValueName As String, lData As Long) As Long
    lErrorCode = RegSetValueEx(hKey, sValueName, NOT_USED, DWORD, lData, Len(lData))
    SetDWordValue = lErrorCode
End Function
                        