Public Function DeleteValue(ByVal KeyName As String, ByVal _
ValueName As String, Optional RegKey As Long) As Long
' KeyName = "Path" ex. Software\Microsoft\Windows
' ValueName = Värde att radera
' RegKey = ex. HKEY_CURRENT_USER

Dim Ret As Long ' Retur värde
Dim hReg As Long ' Handle till den öppna nyckeln

'// Sätter RegKey default till HKEY_CURRENT_USER
If RegKey = 0 Then
RegKey = HKEY_CURRENT_USER
End If

'// Försöker öppna nyckeln
Ret = RegOpenKeyEx(RegKey, KeyName, 0&, KEY_WRITE, hReg)
If Not (Ret = ERROR_SUCCESS) Then
DeleteValue = Ret
Exit Function
End If

' Raderar nyckeln
Ret = RegDeleteValue(KeyName, ValueName)

' Värdet av DeleteValue skall vara ERROR_SUCCESS (0)
DeleteValue = Ret

'// Stänger nyckeln
RegCloseKey (RegNøkkel)

End Function