userform'a saat koyma

[YAKAKENTİM]

arkadaşlar herkese selam..

userforma saat koyabilirmiyiz..

 

[TUÐRA]

Private Sub UserForm_Activate()
Do
Label1.Caption = Format(Now, "hh:mm:ss")
DoEvents
Loop
End Sub
userform' 1 adet label eklersen olur

 

[YAKAKENTİM]

teşekkürler dosdum

 

[TUÐRA]

RİCA EDERİM

 

[Haydar Ali Ã?züm]

Saati Excel sayfalarındaki hücrelere koyduğumuzda her an ( saniyede birden fazla ) çalıştığı için programı çok yoruyordu. Bazen sayfa kilitleniyordu. Ben de sildim.

Formlarda da böyle bir durum sözkonusu mu ?