求一个商场抽奖的软件

哪位高手可以帮帮我啊，我想要一个抽奖的软件，要求1-200数字随机出，背景是白色的谢谢啦
请发到我的QQ邮箱里 327773754@qq.com 楼主是要exe啊？另外楼主会不会回来结贴啊？ how money？

Private Sub Form_Load()

    Me.FontSize = "36"

    Me.ForeColor = vbRed

    Me.Picture = LoadPicture("e:\123.bmp")

End Sub

飘过~~~~~~~~~~~~~~~~~~~~~~~~~

补充：VB ,  非技术类