Private Sub Form_Load
	Me.TimerInterval = 1000
	Form_Timer
End Sub
 
Private Sub Form_Timer
	[השם של תיבת הטקסט] = Time()
End Sub

Private Sub Form_Timer
	If ([השם של תיבת הטקסט] <> Format(Time(), "hh:mm")) Then
		[השם של תיבת הטקסט] = Format(Time(), "hh:mm")
	End If	
End Sub