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
Visual Basic
- GAME CARD WITH VISUAL BASIC 6
- Using ADO and the ListView control Visual basic 6.0
- Program pengacak no undian pada VB 6
- duplikat gambar dengan visual basic
- Efek Tetesan Air Diatas Monitor dengan visual basic
- Explode form visual basic
- SIMULATION DEACTIVE BOOM VER.1
- Simulasi animasi gerbang otomatis dengan visual basic
- MENAMPILKAN PILIHAN GAMBAR DENGAN VISUAL BASIC
- Animasi Frame image dengan visual basic 6
- Game uji kemampuan otak dengan visual basic 6.0
