Public Sub Change_Keys()
            proc.WriteByte(CType(&H8853FA, IntPtr), 20)
            proc.WriteByte(CType(&H877598, IntPtr), 11)
            MsgBox("Don't close this dialog (don't press ""Ok"") until you're finished mapping keys. Go to the game. Press F6 to save the key mappings.")
            proc.WriteByte(CType(&H8853FA, IntPtr), &HFF)
        End Sub