1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
Private Sub cmd_start_Click()
Timer1.Interval = 1000
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 1000
DoEvents
txt_sekunde.Text = txt_sekunde.Text + 1
If txt_sekunde.Text = 60 Then
txt_sekunde.Text = 0
txt_minute.Text = txt_minute.Text + 1
If txt_minute.Text = 60 Then
txt_minute.Text = 0
txt_stunde.Text = txt_stunde.Text + 1
End If
End If
End Sub
|