تغيير خواص الكيبورد في برامج الفيجوال بيسك دوت نت

السلام عليكم

بالنسبة للتحويل من العربية إلى الأنجليزية يكون كالتالي

العربية - الإمارات
InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New _
                System.Globalization.CultureInfo("ar-AE"))


الأنجليزية 
 InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture(New _
                       System.Globalization.CultureInfo("en"))

كذلك لتحويل الـ لا إلى الـ يكون كالتالي نستخدم Regex لعمل ذلك جعلت اللام تتغير فقط في بداية الكلمة

لجعلها تعمل في اي مكان قم بحذف الـ \b

 Const aRX As String = "\bلا"
    Const aReplace As String = "ال"

 Public Shared Function ChangeLetters(ByVal FullName As String) As String
        Try
            Dim rxYLetter As New Regex(aRX, RegexOptions.CultureInvariant)
            FullName = rxYLetter.Replace(FullName, aReplace)
            Return FullName
        Catch ex As Exception
            Throw ex
        End Try
    End Function

السؤال الثالث بالنسبة لجعل ال f2 يعمل وظيفة الـ ctrl ... لا أعرف في الحقيقة وسامحني على ذلك

السلام عليكم

KeyBoardLanguages.zip