アクセス版タイマー

Access VBA　タイマー

前回タイマーについて説明しました。
タイマー機能だけ取り出して汎用性のあるものを作りましたので公開しておきます。
分と秒をセットします。
リセットボタンをクリックすればセット完了。
残り10秒になると文字色が変わりフォントサイズも大きくなります。
コードは以下の通りです。(Formatは無くても大丈夫)

コードは以下の通りです


    
    Option Compare Database 
    Dim i As Integer 
    Dim dt As Date 
    
    Private Sub Form_timer() 
     dt = DateAdd("s", "-1", dt) 
     Me.twatch = Right(Format(dt, "hh:mm:ss"), 5) 
     i = i - 1 
     If i = 10 Then 
       Me.twatch.ForeColor = "9639167" 
       Me.twatch.FontSize = 24 
       Me.twatch.TopMargin = 60 
     End If 
     
     If i = 0 Then 
      MsgBox "時間です" 
      Me.TimerInterval = 0 
      Exit Sub 
     End If 
    End Sub 
    
    Private Sub cmdReset_Click() 
     dt = TimeSerial(7, Me.tmin, Me.tsec) 
     i = Me.tmin * 60 + Me.tsec 
     Me.twatch = Right(dt, 5) 
     Me.twatch.ForeColor = "0" 
     Me.twatch.FontSize = 16 
     Me.twatch.TopMargin = 160 
    End Sub 
    
    Private Sub cmdStart_Click() 
     Me.TimerInterval = 1000 
    End Sub 
    
    Private Sub cmdStop_Click() 
     Me.TimerInterval = 0 
    End Sub

update:2024.03.30