Cara Membuat Animasi Jam dan Fungsi Timer

Buat 1 buah label dan timer

dan ketik source code dibawah ini:

Private Sub Form_Load()

Me.Label1.FontBold = True

Me.Label1.FontSize = 24

Me.Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

Me.Label1.Caption = Format(Now, "hh:mm:ss")

End Sub

Related Post