عاجل :أريد تجهيز مؤشر الماوس للكتابة بالعربي دائما

ألا يوجد حل أبدا ؟ !!!!

مرحبا

جرب هذا الكود

Const KLF_ACTIVATE  As Long = &H1

Const LANG_NL_STD As String = "00000401"

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

Private Sub Form_Load()
LoadKeyboardLayout LANG_NL_STD, KLF_ACTIVATE
End Sub

جزاك الله خيرا على الكود الجميل