هذ السطر في قسم التصريحات العامة General_Declarartion: Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long وهذا للتحويل إلى اللغة العربية: LoadKeyboardLayout "00000401", 1 وهذا للتحويل إلى اللغة الإنجليزية: LoadKeyboardLayout "00000409", 1 :)