Private Sub Form_Load() Text1.Text = Now Text1.Width = 2600 Text1.Locked = True Text1.Alignment = vbCenter Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Text1.Text = Now End Sub
----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Создайте проект и поместите на него таймер и Text .Вставьте этот код в проект.
Для Поисковиков:
Исходники на Бейсике;
Программа на Бейсике;
Часы на бейсике;