ben zaten yanmışım aşağıdakini yaptım kod çalışmıyor.

Private Sub DURUM_KODU_KeyPress(KeyAscii As Integer)
If (Not Chr(KeyAscii) = "a") Or (Not Chr(KeyAscii) = "A") Or (Not Chr(KeyAscii) = "f") Or (Not Chr(KeyAscii) = "F") Then

KeyAscii = 0

Else

End If
End Sub

Sn ferhatozge;
Eğer yapmak istediğiniz basit bir açılan kutu ise ve bu açılan kutunun belli bir listeden başka değer almasını istemiyorsanız aşağıdaki örneği inceleyiniz.
Açılan kutuda ListeyeSınır: Evet olmalıdır.

Sevgili ferhatozge hakkaten haklısın ya çalışmıyor bu kod . Sadece 2 harf için denemiştim ancak 2 den fazla kontrol olunca çalışmıyor. Madem durum bu örnek yapıp eklemek gerektiğini düşündüm. Yalnız burada istediğin tüm harfleri kontrol etmiyor sen diğerlerini eklersin. Tuşların Ascii karşılıklarını öğrenmek için verdiğim linkteki diğer örnek dosyayı kullanabilirsiniz : Tıklayın