نوع لغة لوحة المفاتيح هل Ar أو En ????

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Dim kbd As Long

On Error Resume Next

'get keyboard language.Arabic or English

kbd = GetKeyboardLayout(0)

kbd = Hex(kbd)

If Right(kbd, 1) = 1 Then

'keyboard is arabic

msgbox "عربي"

Else

'keyboard is english

msgbox "انجليزي"

End If

هذا الدود يجعل الغه تتحول الى العربيه

Text1.SetFocus

"^+" SendKeys

ولكم اي شكر

الرد الأول هو كان طلبي ..

شكراً يا اخواني والله يجزاكم خير ..:o