Menampilkan Jam Digital Di Form

Untuk memanjakan pengguna aplikasi yang berbasis Excel atau sekedar memperindah sebuah tampilan Form, mungkin cara ini bisa Anda jadikan sebagai salah satu alternatifnya - yakni dengan menampilkan sebuah jam digital (seperti yang terlihat di system tray sistem operasi Windows).

Seperti biasanya, aktifkan terlebih dahulu jendela Microsoft Visual Basic - kemudian buat sebuah UserForm (UserForm1) dan sebuah Label (Label1). Dan langkah selanjutnya adalah memasukkan kode berikut :
Option Explicit
Dim Berhenti As Boolean

---

Private Sub UserForm_Activate()
Do Until Berhenti
    Label1 = FormatDateTime(Time, vbShortTime)
    DoEvents
Loop
End Sub

---

Private Sub UserForm_Terminate()
Berhenti = True
End Sub

Pilihan untuk mengubah format jam digital :
vbShortTime : tampilan jam tanpa detik (ex, 17:25)
vbLongTime : tampilan jam dengan detik (ex, 17:25:31)