vb.net 中，do while loop循环时，怎么监控鼠标事件

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()