sarah番号:记录上机时间的一个小程序，有点问题，帮帮忙

Dim A As Integer, B As Integer

Private Sub A1_Click() '这是一个菜单控件A1
Dim ok As Integer
ok = MsgBox("是否确定重新记录??" + vbCrLf + "按""确定""开始重新记录" + vbCrLf + "按""取消""放弃本次操作", 1 + 48 + 256, "特别提醒")
If ok = 1 Then
Open "D:\我的文档\我的vb制作\上机时间管理系统\记录.txt" For Output As #1 '每一分钟记录一次（写入txt文档）
Print #1, 0
Print #1, 0
Close #1
A = 0
B = 0
Text1.Text = Str(A \ 60) & "小时" & Str(A Mod 60) & "分钟"
Text2.Text = Str(B \ 60) & "小时" & Str(B Mod 60) & "分钟"
End If
End Sub

Private Sub A2_Click() '这是一个菜单控件A2
Form1.Visible = False '为了不影响用户,把窗口隐藏起来
End Sub

Private Sub A3_Click() '这是一个菜单控件A3,快捷键为ctrl+G
Form1.Visible = True '需要时把窗体显示出来
End Sub

Private Sub Command1_Click()
Text1.Text = Str(A \ 60) & "小时" & Str(A Mod 60) & "分钟" '输出本次上机时间
Text2.Text = Str(B \ 60) & "小时" & Str(B Mod 60) & "分钟" '输出本月上机时间
End Sub

Private Sub Form_Load()
Dim i As Integer, x As String
Open "D:\我的文档\我的vb制作\上机时间管理系统\记录.txt" For Input As #1 '读取上次上机时间
i = 1
Do While Not EOF(1)
Line Input #1, x
If i = 0 Then
A = Val(x)
ElseIf i = 1 Then
B = Val(x)
End If
Loop
Close #1
End Sub
Private Sub Timer1_Timer()
A = A + 1
B = B + 1
Open "D:\我的文档\我的vb制作\上机时间管理系统\记录.txt" For Output As #1 '每一分钟记录一次（写入txt文档）
Print #1, A
Print #1, B
Close #1
End Sub
问题是这样的,我想把窗体隐藏起来(这个已实现),然后用Form1.Visible = True来把窗体显示出来,但是这个功能实现不了,请各位帮帮忙!!!!

form1.show 也是不行啊,你行的话请帮写一下