Key Traping in Visual basic 6.0

double click on the textbox you want to trap, goto procedure and select keypress

Sub Text1_KeyPress(KeyAscii as Integer)
If KeyAscii >= vbKeyA And KeyAscii <= vbKeyZ Then
Exit Sub
Else
KeyAscii = 0
Beep
End If
End Sub