用VB如何实现电视中常见的抽奖软件的数字滚动情况

注：数字是用picture加载的，且所有picture已成控件数组

感激不尽！！！

GIF播放即可

gif播放器是VB中的控件？

Option Explicit

Dim i As Long, j As Long                      '全局变量
Dim s1 As String, s2 As String


Private Sub Timer1_Timer()

Picture1.Cls
If s1 = "" Then
    s1 = Int(Rnd * 9 + 1)
End If
If s2 = "" Then
    s2 = Int(Rnd * 9 + 1)
End If

i = i + 150                 '速度控制
Picture1.CurrentX = 3000
Picture1.CurrentY = i
Picture1.Print s1

Picture1.CurrentX = 3000
Picture1.CurrentY = i - 1500
Picture1.Print s2

If i > 1500 Then
    i = i - 1500
    s1 = s2
    s2 = ""
End If

End Sub


09年11月为论坛里一个提问写的一段程序，你参考一下吧。
Picture1 高 1455 ，
Picture1 的字体大小为：72
Timer1 的定时设置为 100 。

这个程序是演示一个数字滚动的情况。
不加修改时，适用于 数字整体滚动情况。 如 手机号码抽奖。 固定号码抽奖。

太谢谢了，这给了我不小的启发。

但运行无结果

Private Sub Form_Load()
Picture1.Print "1"
End Sub

就连这都没结果？？？

望指点

这个程序是用 定时器来 运行的。

你 picture1 拉宽一点就可以看到效果了。 宽度 在大于 3000 以上。
这个程序是演示，是随机产生二个数字在滚动的。

谢谢了，这个只是一个片段，所以运行起来有问题，经过我的改动，完全正确了

谢谢，谢谢了