'*********************************************************
' Function KeyboardLangID() As Long
'
' Devuelve el valor numérico que representa el idioma del
' teclado
'
Sub wzKeyboardLangId()
Dim wzKLangId As Long

    WizHook.Key = 51488399
    wzKLangId = WizHook.KeyboardLangID
    
End Sub
'*********************************************************