Text1'e sadece kucuk harfler iceren kelimeler yazılmasını sağlamam lazım. Asla buyuk harf ya da diğer klavye karekterleri girilmemeli.

Boyle bir giriş olması halinde girilen karekter silinmeli. Aşağıdaki kod parcacığı ile bunu yaptırmayı amacladım ama karekterin Text1 kutucuğuna yazılmasına engel olamadım.

Nasıl yapmalıyım ki; kural dışı karekterler kutuda gorunmesin, silinsin...


Private Sub Text1_KeyPress(KeyAscii As Integer) 'Kucuk Harf Kontrolu
If KeyAscii > 31 And KeyAscii < 97 Then
Label1.Caption = "Yalnızca kucuk harfler kullanın !"
Text1.Text = ""
End If
End Sub
__________________