VB如何一直随机抽取

就是Text里面的数字一直再换，怎样一直随机抽取，而不是按一下就抽出来了呢？
当然，要事能让抽取的数字慢慢地停下来，那就更好了！望高手解答！学号抽取就差这最后一部了！！
代码：
Text1.Text = Str (Int(52 * Rnd) + 1)
怎么改啊？？？

追问：具体说一下，我刚刚入门

答案：使用timer控件
让抽取的代码周期性执行

其他：用一个循环来处理，定义一个循环退出的条件。 

上一个：VB如何选择某一个复选框后，让我设计的程序关闭。
下一个：VB，高分,有没有什么方法可以把TXT中的某些数据提到EXCEL中去，我给大家上图，谢谢了哦