خطأ في تنفيذ حدث وذلك عند الضغط علي مفتاحي Alt+shift

الاخوة الزملاء

السلام عليكم ورحمة الله وبركاتة

اريد ان اضغط علي زر Alt+shift من لوحة المفاتيح لتنفيذ حدث معين وهو البحث في عمود معين

وعند وضع الكود بهذه الطريقة يظهر لي خطأ فهل هناك خطأ في هذا الكود

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown 
		If e.KeyCode = Keys.Enter Then 
			If e.KeyCode = Keys.Alt And e.Shift Then 
				DS = Search1("dic", "E", Me.TextBox1.Text.Trim) 
			End If 
			If e.KeyCode = Keys.Alt And e.Shift Then 
				DS = Search1("dic", "A", Me.TextBox1.Text.Trim) 
			End If

وهذه صورة من الخطأ