没事也玩玩VB，这不，经常敲代码眼睛保护不了，所以诞生了这个！

代码：

Private Sub Timer1_Timer()
Static i As Boolean '定义一个布尔型变量i，布尔型变量只有真假（True 或Flase）
If i = False Then
    label1.Caption = "保护视力"
    Beep
Else '否则 i =True
    label1.Caption = "预防近视"
End If '显示两句话
i = Not i   '换一个布尔值

End Sub