这个摇奖机是传智播客.net班的一个项目之一，在这里我提供了该项目的完整代码供大家下载

这是一个简单的摇奖机，通过timer控件控制产生随机数，显示中奖号码！多个关键字请用空格分隔，最多填写5个。这是一个简单的摇奖机，通过timer控件控制产生随机数，显示中奖号码！多个关键字请用空格分隔，最多填写5个。点击右侧Tag快速添加 这是一个简单的摇奖机，通过timer控件控制产生随机数，显示中奖号码！多个关键字请用空格分隔，最多填写5个。点击右侧Tag快速添加

没有数据库的，可以直接打开解决方案！虽然很简单，但是里面用到了一些很巧妙的方法和技巧，很值得一看哦！

VB6.0制作的界面挺花哨的七星彩摇奖机，类似于电视节目中的摇奖画面，开始摇奖后，一串数字开始转动，变化很快，停止来的一串数字就是中奖号码了，可用于举办活动时的抽奖程序，关于程序的实现，可参考以下核心部分的代码： 　　Dim i As Integer 　　Randomize 初始化随机数产生器 　　For i = 0 To Lbl_LuckyNum.UBound 　　 Lbl_LuckyNum(i).Caption = Int(Rnd * 10 0)  Lbl_LuckyNum(i)中显示