荸荠煮水要去皮吗:我的代码连接 "Enter"键不成功?VB高手请帮助

Option Explicit
Dim LastInput As String * 3 '记录上次按下的按键
Dim Num1 As Double '第一个操作数
Dim Num2 As Double '第二个操作数
Dim OptType As Integer '按下哪一个操作符
Dim Result As Double '表示运算结果

Private Sub Command1_Click(Index As Integer)
'当按下数字键（0-9）时，向文本框尾部追加数据
'并通过变量LastInput记录上次按键为数字键
If Len(Text1.Text) > 16 Then Exit Sub
If Text1.Text = "0" Or LastInput = "Eqv" Then Text1.Text = ""
Text1.Text = Text1.Text & Index '追加数据
LastInput = "Num"
Command1(0).SetFocus
End Sub

Private Sub Command1_KeyPress(Index As Integer, KeyAscii As Integer)
Call keyp(KeyAscii)
End Sub

Sub keyp(keynum As Integer)
Dim CHAR As String * 1
CHAR = Chr(keynum)
If CHAR = "+" Or keynum = 43 Then Command5(0).Value = True
If CHAR = "-" Or keynum = 45 Then Command5(1).Value = True
If CHAR = "*" Or keynum = 42 Then Command5(2).Value = True
If CHAR = "/" Or keynum = 47 Then Command5(3).Value = True
If keynum >= 48 And keynum <= 57 Then Command1(keynum - 48).Value = True
If keynum = 46 Then Command2.Value = True
If UCase(CHAR) = "C" Then Command3.Value = True
If keynum = 27 Then Command4.Value = True
If keynum = 61 Then Command6.Value = True
keynum = 0

End Sub

Private Sub Command6_Click()
'单击“=”按钮时，计算并显示结果
Num2 = Val(Text1.Text)
Select Case OptType
Case 0 '加法
Result = Num1 + Num2
Case 1 '减法
Result = Num1 - Num2
Case 2 '乘法
Result = Num1 * Num2
Case 3 '除法
If Num2 = 0 Then
Text1.Text = "除数不能为零"
Else
Result = Num1 / Num2
End If
End Select
If Text1.Text <> "除数不能为零" Then Text1.Text = Trim(Str(Result)) '显示结果
Num1 = 0
Num2 = 0
LastInput = "Eqv"
OptType = -1
Command1(0).SetFocus
End Sub
Private Sub Form_Load()
'加载窗体，变量初始化
LastInput = "Nul"
Num1 = 0
Num2 = 0
OptType = -1
Text1.Text = "0"
Text1.Locked = True
End Sub