استفسار كيف يمكن معرفة انه تم الضغط على alt+shift تغير اللغة

في امل ان احنا نعرف حل هذا السؤال الان انا محتاج اعرفه بردو

يمكن معرفة حالة الكيبورد من خلال الدالة GetKeyboardLayout

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

Private Sub Command1_Click()
Dim Y As Long
Y = GetKeyboardLayout(0)
	If Y = "67699721" Then
	MsgBox " إنكليزي " & Y
	Else
	MsgBox " ليس إنكليزي " & Y
	End If
End Sub

اخي عبد العزيز شكرا على الرد وبارك الله فيك

صحيح الكود انا جربته سابقا وشغال لكن كانت المشكلة عندما اضع هذا الكود في تايمر

من الواضح انه لا يوجد طرقة سوا هذا الكود ساجرب وضعه في مكان اخر

بارك الله فيك وجزاك عنا كل خير