Hanya Huruf yang bisa di Input dalam TextBoxt

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	1	Text	""	kosongkan

Masukkan souce ini ke dalam Form :Private Sub Text1_KeyPress(KeyAscii As Integer) If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then Beep KeyAscii = 0 End If End Sub