1.前言：由于许多人使用电脑好长时间都不知道休息，我就是其中之一。我自从买了电脑之后，视力在不停的下降，身体也没有原来好了。对此我十分担心，为此我想到了自己做一个强制限制使用电脑时间，保护眼睛的小软件。我是用vb.net实现的！

　　 2.基本原理：

　　 我是通过两个Timer控件控制工作和休息时间，当工作时间过了之后。调用新窗口，新窗口是一个没有边框的全屏form并且不能关闭！只有你休息的时间过了窗体自动关闭，在过一段你工作的时间之后，电脑又将锁定，强制保护你的眼睛，休息时间和工作时间可以自己设定！但是我建议工作50分钟后，休息10分钟！

　　 3.部分代码：
 Public Class Form1

　　　 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
　　　　　　　 Me.Label5.Text = "系统当前时间：" & Now
　　　 End Sub

　　　 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
　　　　　　　 If Me.MaskedTextBox1.Text <> "" And Me.MaskedTextBox2.Text <> "" Then
　　　　　　　　　　　 Me.Timer2.Enabled = True
　　　　　　　　　　　 Me.Timer2.Interval = CInt(Me.MaskedTextBox1.Text) * 1000 * 60
　　　　　　　　　　　 Me.Hide()
　　　　　　　 Else
　　　　　　　　　　　 MsgBox("请你输入时间！")
　　　　　　　 End If
　　　 End Sub

　　　 Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
　　　　　　　 Dim peng As New Form2()

　　　　　　　 Me.Timer2.Enabled = False

　　　　　　　 Me.Visible = False
　　　　　　　 peng.Show()
　　　 End Sub 

　　　 Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing

　　　　　　　 Me.Hide()

　　　　　　　 e.Cancel = True

　　　 End Sub
　　
　　　 Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
　　　　　　　 Me.Show()
　　　 End Sub

　　　 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　　　　 Me.MaskedTextBox1.Text = 50
　　　　　　　 Me.MaskedTextBox2.Text = 10
　　　 End Sub
End Class

Public Class Form2
　　　 Dim i As Long = 0
　　　 Dim flag As Boolean = True
　　　 Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)