计时器
Timer1.Interval=1000
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
Label22.Text = Format$(Val(Label22.Text) + 1, "00")If Label22.Text >= "59" Then
Label22.Text = "00"
Label23.Text = Format$(Val(Label23.Text) + 1, "00")
If Label23.Text >= "59" Then
Label23.Text = "00"
Label24.Text = Format$(Val(Label24.Text) + 1, "00")
End If
End If
Label21.Text = Label24.Text & ":" & Label23.Text & ":" & Label22.Text
End Sub