倒计时函数

在文本框中，显示 剩余时间

Private Sub LeftTime()Sub LeftTime()   
        Dim totalTime As Long = 100 * 60
        Dim h As Integer  '小时
        Dim m As Integer  '分钟
        Dim s As Integer  '秒
        If totalTime > 0 Then
            totalTime = totalTime - 1
            h = Int(totalTime / 3600)
            m = Int(totalTime / 60) - h * 60
            s = totalTime - h * 3600 - m * 60
            Me.TextBoxLeftTime.Text = Str(h) + "：" + Str(m) + "：" + Str(s)
        Else
            Timer1.Enabled = False
        End If
 End Sub