 <p>Avoid the timer altogether.</p> <pre><code>for i as integer =0 to 100 DoSomething() next i Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick DoSomething() End Sub Sub DoSomething() ' do something End Sub </code></pre>