Inserindo um relógio digital em seus formulários!

Aprenda com este código VBA como inserir um relógio digital dentro de um formulario.é muito simples e rápido,siga os passos:

1-Acesse o VBA(ALT+F11) e insira um módulo:

Na tela branca que surgir copie e cole o seguinte código:

Option Explicit
Dim T

Sub StopTimer()
On Error Resume Next
Application.OnTime T, Procedure:=”Update”, Schedule:=False
End Sub

Sub StartTimer()
T = Now + TimeValue(“00:00:01”)
Application.OnTime T, “Update”
End Sub

Sub Update()
UserForm1.Label1.Caption = Format(Now, “hh:mm:ss”)
Call StartTimer
End Sub

Após feito este procedimento insira um formulario(no mesmo menu do modulo) e adicione uma label e um comandbuttom.Veja:

De um duplo clique sobre o formulario criado e copie e cole o seguinte codigo:

Option Explicit
Dim T

Private Sub CommandButton1_Click()
Application.Run “StopTimer”
Unload Me
End Sub

Private Sub UserForm_Activate()
Application.Run “StartTimer”
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
StopTimer
End Sub

Execute(F5) e note o resultado: