[Microformt]

(21-09-18, 03:28 AM)عبدالله الصافي كتب :

كود :

Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Public Const KLF_ACTIVATE   As Long = &H1

هذا الكود اجعله في Module

كود :

Private Sub Txt_EnWord_GotFocus()
On Error Resume Next: Err.Clear
LoadKeyboardLayout "00000409" & Chr(0), KLF_ACTIVATE
End Sub

وهذا كما تري في حدث تنشيط خانة النص

 اخي العزيز
 السلام عليكم ورحمة وبركاته
الف الف شكر لك اخي العزيز
 تحياتي