Shared Sub SetColorizationColor(ByVal color As String) Dim regKey As RegistryKey regKey = My.Computer.Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\DWM", True) regKey.SetValue("AccentColor", 268435455) regKey.SetValue("ColorizationColor", Convert.ToDecimal(color)) regKey.Close() End Sub
Quote:Input string was not in a correct format.
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)