Public Function scan2ascii(ByVal scancode, ByVal result)
        Dim hIMC As IntPtr = ImmGetContext(Me.Handle)
        Dim hKL As IntPtr = GetKeyboardLayout(0)

        Dim State = New Byte(255) {}

        If GetKeyboardState(State) = False Then
            Return 0
        End If

        Return MapVirtualKeyEx(scancode, 1, hKL)
    End Function