[Black Rain]

Text kutularında saat, dakika, saniyeyi ayrı ayrı gösteren proje..
Eklenecek nesneler; Text1, Text2, Text3, Timer1
(Timer1'in Interval özelliğini 1000 yapıyoruz)

Private Sub Form_Load()
    Text1 = Hour(Time)
    Text2 = Minute(Time)
    Text3 = Second(Time)
End Sub

Private Sub Timer1_Timer()
    Text1 = Hour(Time)
    Text2 = Minute(Time)
    Text3 = Second(Time)
End Sub