تغير اللغة في صندوق النص

يا ريت تبعتلي الدالة و إن شاء الله أستطيع المساعدة

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

ممكن تستخد دوال api كمان فى الدت نت

 Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
[CODE]

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus

LoadKeyboardLayout("00000401", 1) REM تحويل اللغه للعربية

End Sub

اما الطريقة الخاصة بلدت نت

Dim ar As CultureInfo = New CultureInfo("ar-sa") InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(ar)

شكرا لك أخي جزيلاً على المساعدة , و أرجوا أن يتم تثبيت السؤال لأنه غالبا ما يتم السؤال عنه