标题上网计时不用愁

　　相信大家在网吧上网时，常会碰上这样的情况：因为一时疏忽忘了看时间，结果超过了一点点时间也被收了费，心疼呀！我们可以找到很多计时软件，但都不大适合网吧用户，于是便产生了自己编写的念头。程序的实现很简单，源代码如下：
　　Private Sub Command1_Click()
　　Form1.Hide
　　End Sub
　　Private Sub Command2_Click()
　　t1 = InputBox("你让我在什么时候叫你？
　　(格式是hh:mm:ss")"时间输入"("12:12:12")
　　x = MsgBox"你确认吗？"(vbYesNo)"确认"
　　If x = 6 Then Form1.Hide
　　End Sub
　　Private Sub Command3_Click()
　　Unload Me
　　End Sub
　　Private Sub Timer1_Timer() 
　　Form1.Label1.Caption = Right(Now，8)
　　If Right(Now，8)= t1 Then
　　MsgBox "时间快到了"
　　Form1.Show
　　End If
　　End Sub
　　希望大家在自己动手编写了这个小软件之后，不会再因为超时一点点而被老板多收钱了！本程序在VB 6企业版上通过。