问一个关于VB窗体关闭和打开的有关问题

问一个关于VB窗体关闭和打开的问题
小弟刚学VB，实现一个简单的小功能遇到一点迷惑，求各位大神指点下。
主要是通过form2中的command按钮点击实现显示几个数，最后一个数为前3个数之和。代码和界面如下，求指点
1、能实现在程序结束的时候关闭form2窗口并打开form1窗门么，好像怎么调试都不行。
2、程序需要怎么优化。
谢谢。

Public Sub main()

End Sub


Private Sub Command1_Click()

Static i As Integer

i = i + 1

If i < 10 Then

Print i

Text1 = Text2

Text2 = Text3

Text3 = Text6

Text4 = Val(Text1) + Val(Text2) + Val(Text3)

Text5 = "第" & i & "次"

Text6 = Val(Text6) + Val(Text1) + Val(Text2)

Print Text6

Else

MsgBox "已经不符合打印条件！", vbInformation, "提醒信息"

Form1.Show 1

End

Form2.Visible = False

End If

End Sub


Private Sub Form_Load()

'Command1.Width = 1000

'Command1.Left = 350

'Command1.Height = 735

'Command1.Top = 2000

'Command1.Caption = "测试1"

'Command3.Width = 1000

'Command3.Left = 1700

'Command3.Height = 735

'Command3.Top = 2000

'Command3.Caption = "测试0"

Command1.Width = 1000

Command1.Left = 1500

Command1.Height = 735

Command1.Top = 2000

Command1.Caption = "测试后一个数等于前3数和"

Text1 = 1

Text2 = 2

Text3 = 3

Text4 = ""

Text5 = "第0次"

Text6 = Val(Text1) + Val(Text2) + Val(Text3)

Text6.Visible = False

End Sub

------解决思路----------------------
好吧，看到代码了= =
代码供参考

Private Sub Command1_Click()

    Static i As Integer

    i = i + 1

    If i < 10 Then

        Print i

        Text1 = Text2

        Text2 = Text3

        Text3 = Text6

        Text4 = Val(Text1) + Val(Text2) + Val(Text3)

        Text5 = "第" & i & "次"

        Text6 = Val(Text6) + Val(Text1) + Val(Text2)

        Print Text6

    Else

        MsgBox "已经不符合打印条件！", vbInformation, "提醒信息"

        Form1.Show

        Unload Form2

    End If

End Sub

之前多了一个end