Userform Kronometre

[OoParadiSeoO]

Arkadaşlar aşağıdaki kodlar ile Userform açıldığında label nesnedinde saati görüntüleyebiliyorum. Saat yerine userform açıldığı andan itibaren otomatik sıfırdan sayan kronemetre gibi bir sayac icin kodlarda ne gibi bi değişiklik yapmak gerekir?

Private Sub UserForm_Activate()
Do
DoEvents
Label1 = Format(Time, "hh:mm:ss")
Loop
End Sub

 

[Murat OSMA]

Kodları bu şekilde revize edebilirsiniz;

[FONT="Trebuchet MS"]Private Sub UserForm_Activate()
    Dim basla!
    basla = [COLOR="Red"]Timer[/COLOR]
    Do
        DoEvents
        Label1.Caption = Format([COLOR="red"]Timer [/COLOR]- [COLOR="red"]basla[/COLOR], "[COLOR="red"]Fixed[/COLOR]")
    Loop
End Sub[/FONT]

 

[OoParadiSeoO]

Murat Bey yardımınız için teşekkürler...

 

[Murat OSMA]

Rica ederim, iyi günler.