metin kutusu giriş

ben zaten yanmışım
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