REGISTRI - SetRegKey

Public Sub SetRegKey(ByVal NomeChiaveFiglia As String, ByVal Valore As String, ByVal MyVal As RegistryValueKind)
' questa sub inserisce un valore dentro ad una chiave

' se non esiste la inserisce

' NomeChiaveMadre inserire il nome dell'applicazione

' NomeChiaveFiglia inserire l'etichetta della chiave da inserire

' Valore inserire il valore della chiave stessa


' 0 nessun valueKing

' 1 RegistryValueKind.Binary

' 2 DWord

' 3 ExpandString

' 4 MultiString

' 5 QWord

' 6 String

' 7 Unknown


On Error GoTo errore
Const userRoot As String = "HKEY_CURRENT_USER\Software"
Dim subkey As String = NomeChiaveMadre
Dim keyName As String = userRoot & "\" & subkey

Registry.SetValue(keyName, NomeChiaveFiglia, Valore, MyVal)
Exit Sub

Errore:
MsgBox("SetRegKey : Errore :" & Err.Description, MsgBoxStyle.Information, "Errore")


End Sub