Si quieres un consejo, usa esto:
' RegCreateKey(Registry.CurrentUser, "Software\MyProgram")
' RegDeleteKey(Registry.CurrentUser, "Software\MyProgram")
' RegDeleteValue(Registry.CurrentUser, "Software\MyProgram", "Value name")
' RegSetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name", "Data", RegistryValueKind.String)
' Dim RegValue = RegGetValue("HKEY_CURRENT_USER\Software\MyProgram", "Value name"))
#Region "Registry Edit"
Public Sub RegCreateKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
RegRoot.CreateSubKey(RegKey)
RegRoot.Close()
End Sub
Public Sub RegDeleteKey(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String)
RegRoot.DeleteSubKey(RegKey)
RegRoot.Close()
End Sub
Public Sub RegDeleteValue(ByVal RegRoot As Microsoft.Win32.RegistryKey, ByVal RegKey As String, ByVal RegValue As String)
Using key As Microsoft.Win32.RegistryKey = RegRoot.OpenSubKey(RegKey, True)
key.DeleteValue(RegValue)
key.Close()
End Using
End Sub
Public Sub RegSetValue(ByVal RegKey As String, ByVal RegValue As String, ByVal RegData As String, ByVal RegDataType As RegistryValueKind)
My.Computer.Registry.SetValue(RegKey, RegValue, RegData, RegDataType)
End Sub
Public Function RegGetValue(ByVal RegKey As String, ByVal RegValue As String)
Return My.Computer.Registry.GetValue(RegKey, RegValue, Nothing)
End Function
#End Region
Saludos