一个timer控件问题，一个installshield问题

Question

1、怎么样一个事件在10分钟内的时间里随机发生？不知道我有没有说明白2、installshield在什么地方设定序列号？谢谢高手！

Answer 1

Dim i As Integer
Private Sub Timer1_Timer()
    If i < 10 Then
        i = i + 1
        Else
        Call doSomething '执行你的代码
        Timer1.Interval = 60 * 1000 * Rnd()'改变下次周期，单位是毫秒，因为最大值为65535，所以要让Timer1运行10圈
        i = 0
    End If
End Sub

Answer 2

先谢谢ipman(ipman) ，谁来帮我解答第二个问题，怎么样设置序列号，在什么地方啊？