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)

Download file di sini

Sumber Informasi :
http://www.rumahexcel.com/2012/12/menampilkan-jam-digital-di-form.html#ixzz2oNmyZ5X8