If Me.CheckBox1.Checked Then If ElapsedSeconds > MaxTimeMinutes * 60 Then

If CBool(t Mod 5) = False Then If t < 100 Then Select t Case 0 My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Hand) Case Else My.Computer.Audio.PlaySystemSound(Media.SystemSounds.Exclamation) End Select End If If t > 10000 Then t = 10000 ''Never overflow End If t += 1 End If End If