* Belli bir süre sonra mesala 5 sn sonra işe devam için

* Belli bir süre sonra mesala 5 sn sonra işe devam için


timerc.start()

yazılır (timer.interval=1000 olmalı 1 sn karşılık gelir)

(timerc_Tick içinde ise)

Dim sayac as integer

On Error Resume Next

timerc.Interval = 1000

sayac = sayac + 1

SAYA.Text = sayac 'istersek

If serisayac = "5" = True Then

(5 sn dolunca yapılması gereken iş)

timerc.stop () (sonunda timerc.stop yazıp durduruyoruz)

End if