vb.net 中，do while loop循环时，怎样监控鼠标事件
勾选CKECKBOX复选框，无限执行do while loop循环，直到取消checkbox的勾选

Private Sub ckb_Online_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ckb_Online.CheckedChanged
If ckb_Online.Checked Then
myLoop = True
n_Page = 1

Do While myLoop

‘执行某一持续动作Brow_Original()
If n_Page = totalYS Then
n_Page = 1
End If
n_Page += 1
Loop
Else
myLoop = False
End If
End Sub
[解决办法]
加一个Application.DoEvents()