Dim hexval As Byte() = New Byte() {87, 68, 95, ef, c6, c4, cd, 4F, 06, 2B, BA, F5, 5A, 05, 21, a1, f4, d1, c0, ce, ca, ce, c7, 4a, 06, 2a}
My.Computer.Registry.SetValue("HKEY_LOCAL_MACHINE\Software\TestApp\TestApp\CDKey", "Serial", hexval, Microsoft.Win32.RegistryValueKind.Binary)
