Функция времени с таймером - VB»

Копировать

Private Sub Form_Load()

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Label1 = Time

Label2 = FormatDateTime(TimeSerial(Hour(Time) + 6, Minute(Time) - 15, Second(Time)), vbLongTime)

End Sub