a:
Label1 = Format(Now, "hh:mm
s")DoEvents
GoTo a
End Sub
Saat Programı
Bir adet label oluşturun ve aşağıdaki kod satirlarını forma yapıştırın. Private Sub Form_Activate()
a:
Label1 = Format(Now, "hh:mms")
DoEvents
GoTo a
End Sub
a:
Label1 = Format(Now, "hh:mm
s")DoEvents
GoTo a
End Sub
![[Resim: 114ld.jpg]](http://b1112.hizliresim.com/s/c/114ld.jpg)
Ben göremem daha uzun boyunu
Ahret derler kısaltamam yolunu
Bugün Sahı Merdan sarsın oglunu
Yetis Ya Üseyin baban gidiyo