Bir tane form ekliyorum ve üzerine bir tane metin kutusu yerleştiriyorum. İsim olarak txtSure belirledim.

Timer kullanımı için Formun Tasarım modunda iken Form Özelliklerini açın. 'Süreölçer Aralığı' değerini 1000 yapın. 1000 değeri 1 saniyeye eşdeğer olsun diye kullandık. Hemen bir üstündeki 'Zaman Dolduğunda' olayının içine çift tıklayın ve [Olay Yordamı] olarak görünmesini sağlayın. Sonrasında yanındaki ... olan butona tıklayarak Vba penceresine geçin.

Bir adet form genelinde geçerli olacak değişken tanımlıyoruz.

Dim sure As Integer

Daha sonrasında Form_Timer() içine

    sure = sure + 1

    txtSure = sure

şeklinde bir kod yazıyoruz. Nihai kod şu şekilde olmalı:

Option Compare Database



Dim sure As Integer



Private Sub Form_Timer()



    sure = sure + 1

    txtSure = sure



End Sub

Form Görünümü'ne geçtiğinizde her 1 saniyelik süre geçtiğinde metin kutusundaki değerin arttığını göreceksiniz. DoEvents için daha çok web sitesinden içerik alma ile ilgili örnekleri inceleyebilirsiniz.