请教个vb 小程序！

有一个vb程序，是个谜语的，答案是 地图，现在的问题是下面的陈旭哪怕是没有谜面，点击答案就出现“地图”，这个程序应该怎么修改呢？只有出现了谜面后，点击 答案 才出现“地图”？
谢谢各位！ 祝 新年快乐！
Private Sub Command1_Click()
Text1.Text = Time$
Timer1.Enabled = True

Label5.Caption = "高山不见一寸土" + vbCrLf + "平地不见半亩田" + vbCrLf + "江河湖海没有水" _
+ vbCrLf + "世界各国在眼前" + vbCrLf + vbCrLf + "(打一学习用具)"

End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
Text4.Text = "地图 "

End Sub

Private Sub Command3_Click()

End
End Sub

Private Sub Label3_Click()

End Sub

Private Sub Text4_Change()

End Sub

Private Sub Timer1_Timer()
Text2.Text = Time$
Text3.Text = CStr(Val(Text3.Text) + 1) + "秒"
End Sub

请教用VB做个简单的小程序 请教个VB基础程序 请教一个小的VB程序 帮忙做个VB小程序 求10个VB简单小程序 vb程序小程序 200分，请教一个VB+XMLHTTP小程序问题 求VB小程序 求教：vb小程序 vb小程序