dim g as long
dim r as long

'Timer1控件的Interval属性设置为1000，Enabled属性设置为True

Private Sub Timer1_Timer()
    if shap1.fillcolor=vbgreen then
         g=g+1
    else
         r=r+1
    end if
    ShowCase
End Sub

private function ChgTime(i as long) as string
    dim hh as long
    dim mm as long
    dim ss as long

    if i<0 then exit function
    hh=i\3600
    mm=(i-hh*3600)\60
    ss=i-hh*3600-mm*60

    ChgTime=hh & ":" & mm & ":" & ss

end function

private sub ShowCase()
    label4.capture=ChgTime(g)
    label9.capture=ChgTime(r)
end sub