Dim ms As New IO.MemoryStream
        Dim bw As New IO.BinaryWriter(ms)
 
        '00000000 00000000 03000000 3A001D00 1D003A00 00000000
 
        Dim key1 As Short = &H3A
        Dim key2 As Short = &H1D
 
        bw.Write(0)
        bw.Write(0)
        bw.Write(3)
        bw.Write(key1)
        bw.Write(key2)
        bw.Write(key2)
        bw.Write(key1)
        bw.Write(0)
 
        Dim scancodes As Byte() = ms.ToArray()
 
 
        'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Keyboard Layout
 
        Dim rk As RegistryKey = Registry.LocalMachine.OpenSubKey( _
          "SYSTEM\CurrentControlSet\Control\Keyboard Layout", True)
 
        rk.SetValue("Scancode Map", scancodes, RegistryValueKind.Binary)
 
        'scancodes = rk.GetValue("Scancode Map")
 
        'rk.DeleteValue("Scancode Map")
 
        rk.Close()

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov