مشکل در فارسی در بعضی تکس بکس ها

[mf_engineer]

با سلام
من برای فارسی نوشتن در برنامه ام صفحه کلید رو فارسی کردم
ولی خیلی جالبه که بعضی از تکس بکس ها که عدد توشون تایپ می کنم, فارسی تایپ می شن وبعضی انگلیسی:متفکر:
ممنون می شم کمکم کنید
یا حق
از این کد استفاده کردم


Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As LongPrivate Sub Form_Load()Dim xx As Longxx = LoadKeyboardLayout("00000429", 1)End Sub

[lahiji]

سلام
در قسمت جنرال این کد رو بنویس

Private Const KLF_ACTIVATE = &H1
Private Const LANG_EN_IR As String = "00000429" 'FA_IR
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Const HKL_NEXT = 1


بعد در قسمت form load

LoadKeyboardLayout LANG_EN_IR & Chr(0), KLF_ACTIVATE