Private Sub Command1_Click()
If Text1.Text = Label2.Caption Then Label1.Caption = "哈哈，被看出规律了！不过这是测试版，不想难为你而已！这里面是我的一些个人资料，你想了解些什么呢？": Option1.Visible = True: Option2.Visible = True: Option3.Visible = True: Option4.Visible = True: Option5.Visible = True Else If Text1.Text = "西方贝草" Then Label1.Caption = "使用万能密码强行进入，胜之不武啊！这里面是我的一些个人资料，你想了解些什么呢？": Option1.Visible = True: Option2.Visible = True: Option3.Visible = True: Option4.Visible = True: Option5.Visible = True Else Label1.Caption = "密码错误！怎么样？服不服！"
Text1.Text = ""
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = "欢迎再次挑战“数字城堡”"
Option1.Visible = False
Option2.Visible = False
Option3.Visible = False
Option4.Visible = False
Option5.Visible = False
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Option1_Click()
Label1.Caption = "许志锋"
End Sub

Private Sub Option2_Click()
Label1.Caption = "阴历猴年腊月二十三，阳历1993年01月15日"
End Sub

Private Sub Option3_Click()
Label1.Caption = "1178328901，这么有缘，要主动加我，在我空间留言哦！"
End Sub

Private Sub Option4_Click()
Label1.Caption = "河南科技大学-国际教育学院-信息管理与信息系统专业 洛阳求学中"
End Sub

Private Sub Option5_Click()
Label1.Caption = "热恋中，不过“情侣空间”暂时关了！别打我注意哦！"
End Sub

Private Sub Timer1_Timer()
Label2.Caption = Now
End Sub