Text框的的问题

请各位高手帮我解决这个困扰我多时的问题吧
我在Form1  里写我这样的代码
Dim i As Integer, Jian As String                                这里是通用Private Sub Text1_KeyPress(KeyAscii As Integer)
 Select Case KeyAscii
    Case 65
        KeyAscii = 0
        SendKeys "{Z}"
    Case 66
        KeyAscii = 0
        SendKeys "{Y}"
    Case 67
        KeyAscii = 0
        SendKeys "{X}"
    Case 68
        KeyAscii = 0
        SendKeys "{W}"
    Case 69
        KeyAscii = 0
        SendKeys "{V}"
    Case 70
        KeyAscii = 0
        SendKeys "{U}"
    Case 71
        KeyAscii = 0
        SendKeys "{T}"
    Case 72
        KeyAscii = 0
        SendKeys "{S}"
    Case 73
        KeyAscii = 0
        SendKeys "{R}"
    Case 74
        KeyAscii = 0
        SendKeys "{Q}"
    Case 75
        KeyAscii = 0
        SendKeys "{P}"
    Case 76
        KeyAscii = 0
        SendKeys "{O}"
    Case 77
        KeyAscii = 0
        SendKeys "{N}"
    Case 78
        KeyAscii = 0
        SendKeys "{M}"
    Case 79
        KeyAscii = 0
        SendKeys "{L}"
    Case 80
        KeyAscii = 0
        SendKeys "{K}"
    Case 81
        KeyAscii = 0
        SendKeys "{J}"
    Case 82
        KeyAscii = 0
        SendKeys "{I}"
    Case 83
        KeyAscii = 0
        SendKeys "{H}"
    Case 84
        KeyAscii = 0
        SendKeys "{G}"
    Case 85
        KeyAscii = 0
        SendKeys "{F}"
    Case 86
        KeyAscii = 0
        SendKeys "{E}"
    Case 87
        KeyAscii = 0
        SendKeys "{D}"
    Case 88
        KeyAscii = 0
        SendKeys "{C}"
    Case 89
        KeyAscii = 0
        SendKeys "{B}"
    Case 90
        KeyAscii = 0
        SendKeys "{A}"
    Case 97
        KeyAscii = 0
        SendKeys "{z}"
    Case 98
        KeyAscii = 0
        SendKeys "{y}"
    Case 99
        KeyAscii = 0
        SendKeys "{x}"
    Case 100
        KeyAscii = 0
        SendKeys "{w}"
    Case 101
        KeyAscii = 0
        SendKeys "{v}"
    Case 102
        KeyAscii = 0
        SendKeys "{u}"
    Case 103
        KeyAscii = 0
        SendKeys "{t}"
    Case 104
        KeyAscii = 0
        SendKeys "{s}"
    Case 105
        KeyAscii = 0
        SendKeys "{r}"
    Case 106
        KeyAscii = 0
        SendKeys "{q}"
    Case 107
        KeyAscii = 0
        SendKeys "{p}"
    Case 108
        KeyAscii = 0
        SendKeys "{o}"
    Case 109
        KeyAscii = 0
        SendKeys "{n}"
    Case 110
        KeyAscii = 0
        SendKeys "{m}"
    Case 111
        KeyAscii = 0
        SendKeys "{l}"
    Case 112
        KeyAscii = 0
        SendKeys "{k}"
    Case 113
        KeyAscii = 0
        SendKeys "{j}"
    Case 114
        KeyAscii = 0
        SendKeys "{i}"
    Case 115
        KeyAscii = 0
        SendKeys "{h}"
    Case 116
        KeyAscii = 0
        SendKeys "{g}"
    Case 117
        KeyAscii = 0
        SendKeys "{f}"
    Case 118
        KeyAscii = 0
        SendKeys "{e}"
    Case 119
        KeyAscii = 0
        SendKeys "{d}"
    Case 120
        KeyAscii = 0
        SendKeys "{c}"
    Case 121
        KeyAscii = 0
        SendKeys "{b}"
    Case 122
        KeyAscii = 0
        SendKeys "{a}"
 End Select
End Sub请各位高手说明原因
这个程序为什么会出现假死机的现象,要按Ctrl + Alt +Del 再按取消才能活过来呢