Ciao..innanzitutto una cose: avevi impostato la proprietà Interval del timer a 100.000.000: questi sarebbero 100.000 secondi quindi più di 27 ore..!! A cosa ti serviva?!?!?!?!?!? :master:

Per quanto riguarda il codice io farei così:
-crei una matrice di textbox, di nome Text
codice:
Dim Cont As Long

Private Sub Form_Load()
Timer1.Interval = 1000
Cont = 0
End Sub

Private Sub Timer1_Timer()
Cont = Cont + 1
Select Case Cont
    Case Is = Val(Text(0).Text)
    'evento 1
    Case Is = Val(Text(1).Text) + Cont
    'evento 2
    Case Is = Val(Text(2).Text) + Cont
    'evento 3
    Case Is = Val(Text(3).Text) + Cont
    'evento 4
    Case Is = Val(Text(4).Text) + Cont
    'evento 5
    Case Is = Val(Text(5).Text) + Cont
    'evento 6
    Case Is = Val(Text(6).Text) + Cont
    'evento 7
    Case Is = Val(Text(7).Text) + Cont
    'evento 8
    Case Is = Val(Text(8).Text) + Cont
    'evento 9
    Case Is = Val(Text(9).Text) + Cont
    'evento 10
End Select
End Sub
fammi sapere..

ciao