'
' GetKeyboardLayoutName
'
' Author: Joe Strazzere
'
' LANG_NL_STD "00000413"
' LANG_EN_US "00000409"
' LANG_DU_STD "00000407"
' LANG_FR_STD "0000040C"
Keyb$=" "
External("user32","GetKeyboardLayoutNameA",Keyb$)
msgbox("Keyboard Layout Name is : "+Keyb$,,"GetKeyboardLayoutName")
