cara membuat stopwatch

//tambahan timer,interval di buat 0
Dim menit, detik As Integer

Private Sub Command1_Click()
mnt = InputBox("Jumlah Interval", "Menit")
menit = Val(mnt)
detik = 0
Timer1.Interval = 1000
Label1.FontSize = 120
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
detik = 0
End Sub

Private Sub Timer1_Timer()
 If menit <> -1 Then
   If detik = 0 Then
    detik = 59
    menit = menit - 1
   Else
    detik = detik - 1
   End If
   Label1 = menit & ":" & detik
 Else
  Label1.FontSize = 36
  Label1 = "Waktu mengerjakan selesai Silahkan tinggalkan tempat duduk kalian"
  Label1.ForeColor = vbRed
  Timer2.Interval = 500
End If
End Sub

Private Sub Timer2_Timer()
 Label1.Visible = Not Label1.Visible
End Sub

ni contoh formnya :