vb 点击一个button运行一个无限循环,点击另一个button使循环终止,怎么实现?

(第一个运行时,第二个button的click无法触发)，难道要多线程？

Option Explicit
    Dim i
    Dim flag As Boolean

Private Sub Command1_Click()
    For i = 1 To 10000000000000#
        i = i + 1
        Text1 = i
        DoEvents
        If flag Then
            Debug.Print flag
            Exit For
        Else
        End If
    Next
End Sub

Private Sub Command2_Click()
    flag = True
End Sub追问

好棒，doevents是我想要的。
不过，有个小问题，点commend2停止后，再次点击commend1，text1就只显示“2”，之后无论点击commend1还是commend2，text1都不动了。请大神再指点一下，问题可能在哪里？

追答Private Sub Command2_Click()
    flag = Not flag
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pqqvv28mm2f2mvfq72.html