معرفه اللغه الحاليه للوحه المفاتيح

'Arabic keyboardId = 8975933078304261121 
'English keyboardId = 8975933078304785417 
	Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

 private sub button1_click
	   'Get the current keyboard layout
		Dim hKeyboardID As Long = GetKeyboardLayout(0&)
		 If hKeyboardID = 8975933078304261121 Then
		  MsgBox("Arabic keyboard")
		 ElseIf hKeyboardID = 8975933078304785417 Then
				MsgBox("English keyboard")
		 End If
End Sub

بس بالدوت نيت هناك طريقة أفضل وأسرع من استخدام Windows API

	Public Function CurLang() As String
		Return InputLanguage.CurrentInputLanguage.Culture.EnglishName
	End Function

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

	Public Sub LangArabic()
		Dim Lang As InputLanguage
		For Each Lang In InputLanguage.InstalledInputLanguages
			If Lang.Culture.EnglishName.ToUpper Like "*arabic*".ToUpper Then
				InputLanguage.CurrentInputLanguage = Lang
			End If
		Next
	End Sub

	Public Sub LangEnglish()
		Dim Lang As InputLanguage
		For Each Lang In InputLanguage.InstalledInputLanguages
			If Lang.Culture.EnglishName.ToUpper Like "*english*".ToUpper Then
				InputLanguage.CurrentInputLanguage = Lang
			End If
		Next
	End Sub

كما يمكنك الاستفادة من الموضوع تحكم - تغيير اللغة - مع الكود المصدري

رائع أخي سامر

فقد كنت أبحث عن هذا الكود

وليد مندني كتب:

رائع أخي سامر

فقد كنت أبحث عن هذا الكود