تکرار یک عمل با استفاده از مقدار TextBox

[loads]

سلام دوستان
من توی یه فرم از یه تایمر و یه تکس باکس استفاده کردم و تو قسمت کد تایمر "Text1.Text = Text1.Text + 1" رو نوشتم ، حالا میخوام هر بار که عدد داخل تکس باکس 20 تا اضافه شد یه عملی انجام بشه (مثل تغییر رنگ یه لیبل ) و وقتی به 40 ، 60 ، ... رسید اون عمل تکرار بشه . ممنون میشم راهنمایی کنید

[Tasiyan]

درست متوجه نشدم ولي


Private Sub Timer1_Timer()
Text1.Text = Text1.Text + 1
If Text1 >= 15 Then Text1 = 0
For i = 1 To 15
If Text1 = i Then Me.BackColor = QBColor(i)
Next
End Sub

:لبخند:

[Felony]

If Text1.Text Mod 20 = 0 Then