işte ogün bu günmüş mehmet bey
elinize sağlık teşekkürler

Sn.mehmetdemiral,
Shift tuşuna bastığımızda msgbox 16 değerini veriyor,aşağı ok tuşunda da 40.Benim sorum;keydown olayında keycode shift+aşağı ok tuşunu kullanmamıza izin veriyormu?

Bu örnek uygulamayla bunu yapamayız çünkü tuşa basıldığı anda kodunu göstermek zorunda. Ama birden çok tuşa aynı anda basılmayla ilgili mutlaka bir başka yöntem vardır. Araştırıp bulursam eklerim. Şu anda bilmiyorum. Ama tahmin edebiliyorum. Fırsat olduğunda tahminimi deneyip buraya yazarım.
İyi günler.

Sn.mehmetdemiral,
size sorduğum sorunun cevabını buldum,ilginize teşekkürler,saygılar.

Dim shiftebas As Integer

 shiftebas = (Shift And acShiftMask) > 0

 If shiftebas Then

If KeyCode = "40" Then

'yürütülecek kod

end if

else

If KeyCode = "40" Then

'yürütülecek kod

end if

end if

Geri dönüş ve paylaşımcı ruh için teşekkürler. Ve tabii ki +rep

Sn.mehmetdemiral,
İlk rep!imi sizden aldım.Site yönetiminden rep almak benim için ayrıca çok değerli.Çok teşekkürler