利用表单做个抽奖系统，但不要用时钟控件。这个怎么做？

我是有两个按钮和一个文本框   文本框绑定数据表的姓名字段   一次抽一个   这个怎么编写  麻烦你帮我把代码发出来   谢谢！

请问具体怎么编写？

数据表就是学生信息表，然后要在不用时钟控件的情况下，点击“开始”，就在文本框中滚动学生姓名。点击“停止”就让文本框中姓名停下来，即这个就是中奖学生。

主要是不知道从何下手

我想用个for循环里面嵌套一个scan，但这样就不能无限循环，而且在运行过程中不能点任意控件。求指点。

for a=1 to 10000 step -1  &&貌似step -1 这个不行
    scan
        thisform.text1.value=姓名
        thisform.refresh
         IF <退出循环条件>   &&这个就是退出的条件，但是我不知道怎么设置
             EXIT
         endif
    endscan
endfor