Option Explicit Private Sub Form_Load() 'Start the application and watch the window title bar StartTimer End Sub Private Sub Form_Unload(Cancel As Integer) EndTimer End Sub ' Cut the text below this line and paste it in a module Option Explicit Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long Private Sub UpdateTitleBar() Me.Caption = Time End Sub Public Sub StartTimer() 'Starts a timer that called our UpdateTitleBar procedure once 'every 500 ms. SetTimer Me.hwnd, 1, 500, AddressOf UpdateTitleBar End Sub Public Sub EndTimer() KillTimer Me.hwnd, 1 End Sub