مشروعي واقف على شوية رتوش وبدي مساعدتكم الله يخليكم

السلام عليكم ورحمة الله وبركاته

تفضل اخي العزيز الحل /

'Module ضع الكود اتلالي في الموديل
 Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" _
                          (ByVal pwszKLID As String, ByVal flags As Long) As Long
'
'TextBox ثم ضع هذا الكود في
'
Private Sub Text1_GotFocus()
'
     LoadKeyboardLayout "00000401", &H1
End Sub

بالتوفيق .