UserForm üzerinde aktif dijital saat

[millis]

Arkadaşlar sorum şöyle; UserForm üzerinde bulunan bir Label kutusu içerisinde aktif olarak çalışan bir dijital saat kullanmak istiyorum. Userform ilk açıldığında saati Label içinde görebiliyorum ama aktif olarak çalışmıyor bu sorunu nasıl aşabilirim. Şimdiden teşekkürler.

 

[harziyan]

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

 

[jeoferkan]

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

KONUYA BİRAZ DAHA ACIKLIK GETİRİSENİZ SEVİNİRİM..

 

[harziyan]

userforma bir label ekledikten sonra kod bölümüne bu kodu yapıştırın ve userformu çalıştırın. aktif çalışan saati görürsünüz.