Private Sub Command1_Click()
    Timer1.Enabled = True
    Count1
End Sub
 
Public Sub Count1()
    Dim i   As Long
 
    For i = 1 To 10000000
        Label1 = i
        DoEvents
    Next
End Sub
 
Public Sub Count2()
    Dim i   As Long
 
    For i = 1 To 10000000
        Label2 = i
        DoEvents
    Next
End Sub
 
Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Count2
End Sub

http://rm_code.dl.am