怎么我用时间控件的时候等一下时间就不动了?
Private Sub Timer1_Timer()
sec = sec + 1
If sec >= 60 Then
min = min + 1
sec = 0
End If
If min >= 60 Then
hou = hou + 1
min = 0
End If
If hou >= 24 Then
hou = 0
End If
Text1.Text = Str$(hou) + ":" + Str$(min) + ":" + Str$(sec)
End Sub