求热心的朋友添加vb程序代码

本人想写个vb数字跳动器，刚学不懂写，希望能得到热心的高手添加代码以达到程序要求。
要求：
1、 每触发跳动事件一次，三十个数值以固定格式循环跳动一次，能够连续循环。有4格5格6格。
2、 跳4格即：1的数值跳到5；5的数值跳到9；9的数值跳到13；13跳到17；17跳到21；21跳到25；25跳到29；29跳到3；3跳到7；7跳到11；11跳到15；15跳到19；19跳到23；23跳到27；27跳到1；
2跳到6；6跳到10；10跳到14；14跳到18；18跳到22；22跳到26；26跳到30；30跳到4；4跳到8；8跳到12；12跳到16；16跳到20；20跳到24；24跳到28；28跳到2，
5格、6格依次类推，
（是触发跳动事件一次以固定值循环一次，能够连续循环）。
最好能写出完整的代码，谢谢
图
程序图为什么上传不了？

千万别告诉我 你不会用哦^_^

带颜色闪烁 (是不合适提供源代码)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Print vbCr & vbCr & vbCr & vbCr & vbCr & vbCr & vbCr
Print "步长4" & vbCr
jumPthr 30, 4, 1
Print vbCr & "步长5"
jumPthr 30, 5, 1
Print vbCr & "步长6"
jumPthr 30, 6, 1
End Sub
'该函数的用法 参数 maxn=最大的数字 比如:30个;m 调到的步长 比如:4 ;n开始跳动的位置 ,比如从1开始
Function jumPthr(maxN As Integer, m As Integer, n As Integer)
Dim i%, s%
Static k%
.... .Left = Text1(j - 1).Width + l * n
.Top = t * m
If (j Mod 10) = 0 Then m = m + 1: n = 0
End With
Next j
End Sub

没看到你的原图..给你写了一个,你看看吧.应该很容易的:

新建工程,一个label,一个command,一个timer

Dim n%, lastnum%

Private Sub Command1_Click()
n = 4
lastnum = Val(Label1.Caption)
Timer1.Enabled = Not Timer1.Enabled
End Sub