要求:窗体上有一个复选框控件chkAutoTest,点击控件(即被选中)时执行循环语句,再次点击控件(即未被选中)时退出循环.
    我这个VB程序怎么退不出循环呢,循环时点chkAutoTest_Click没有反应啊,退不出??
VB代码如下:
Dim LoopFlag As Byte
Private Sub chkAutoTest_Click()
    If chkAutoTest.Value = 1 Then
        LoopFlag = 1
    Else
        LoopFlag = 0
    End If
　  Do While LoopFlag = 1
　       TimeDelay (1000)    ‘延时1s函数
　       DoEvents
　        If LoopFlag = 0 Then
               Exit Do
　        End If
     Loop
End Sub

但是有问题啊,循环时,你点那个复选框没有反应啊.因为进入了死循环,循环条件的值没有改变,永远为真.