Jobs
Author: Patrick Lockefeer (X) Date Submitted: 8/15/2005 Category: Forms Compatibility: VB 6 This code has been accessed 6785 times.
Email Yourself this snippet:
'No declarations 'Author Patrick Lockefeer 'European date : 15-08-2005 'Please see my other snippets on page 607,609,610 and this page (611) 'Control needed : Timer Name : Timer1 'Properties settings : 'Form WindowState : 2-Maximized 'Timer Interval property : 1000 (is one second) 'Timer enabled property : True
Code
'Show Date & Time in Titlebar Private Sub Timer1_Timer() 'Note : Change "Name of your Program " in your own Title Me.Caption = "Name of your Program " & " -- " & Format$(Date, "DD:MM:YYYY") & " -- " & Format$(Now, "HH:MM:SS") End Sub
