Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) Like "[!a-z,A-Z]" And KeyAscii <> 8 Then
KeyAscii = 0
End If
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
If Chr(KeyAscii) Like "[!a-z,A-Z]" And KeyAscii <> 8 Then
KeyAscii = 0
End If
End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
If Chr(KeyAscii) Like "[!a-z,A-Z]" Then KeyAscii = 0
end ifif keycode<>vbback then
If KeyAscii > 0 Then KeyAscii = 0
end if