做了个计算器玩，如图，为什么点击任何按钮，等于号都跟着动，焦点一直在等于号（没有执行等于命令）
从哪些地方找原因？？

^_^,不好意思，帮看看
Private Sub Command26_Click() '后退键
Call qingshuru
If Text1.Text <> "" Then
Text1.Text = Mid(Text1.Text, 1, Len(Text1.Text) - 1)
End If
Text1.SetFocus '焦点停在输入框
Text1.SelStart = Len(Text1.Text) '焦点在文本最后
End Sub
’================================================================
Private Sub Command25_Click() '等于号按钮
If Text1.Text = "请输入算式" Then
    Text1.Text = ""
ElseIf Text1.Text = "" Then
    Text2.Text = ""
Else
    t = Text1.Text
    Call hunhe
ling:   If p = 1 Then
            Text2.Text = "错误，除数不能为零。"
        Else
            If h < 1 And h > -1 Then
                Text2.Text = "=" & Replace(h, ".", "0.")
            Else
                Text2.Text = "=" & h
            End If
        End If
End If
Text1.SetFocus '焦点停在输入框
Text1.SelStart = Len(Text1.Text) '焦点在文本最后
End Sub

经过测试，跟这个有关：

Text1.SetFocus

去掉任何一个Text1.SetFocus，等于号就不闪了。

问题是那几个按钮都想用Text1.SetFocus