Private Sub Form_Load() Text1.Text = "0" Text1.Locked = True '1000 = 1 секунде Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Text1.Text = CInt(Text1.Text) + 1 End Sub |
Нужно на форме разместить таймер и Textbox. Для Поисковиков: Исходники на Бейсике; Программа на Бейсике; Секундомер; Сделать секундомер; |