VB怎样关闭正在运动的窗体form2，显示form1？

关键我要使用FOR循环语句，用for循环来判断标签数组控件每个元素的Top是否>8000,如果找到某个TOP>8000,则则弹出Msgbox,提示是否重来，如果按了“是”,则关闭当前窗体，加载游戏设置窗体，我把代码给你，麻烦帮我看一下。（解决?：按了“是”后，还再次弹出msgbox，我不想让他出现。）

第一个窗体：shezhi.frm代码

Option Explicit
Public speed As Integer, nd As Integer
Private Sub CmdExit_Click()
  End
End Sub

Private Sub Cmdok_Click()
  If (speed <> 1 And speed <> 2 And speed <> 3) Or (nd <> 1 And nd <> 2 And nd <> 3) Then   '如果没有选择速度或难度，则弹出消息提示框
    MsgBox "请选择速度与难度！", vbOK, ""
  Else
    Unload Me   '卸载游戏设置窗体
    Form1.Show  '显示游戏窗体
  End If
End Sub

Private Sub Form_Load()

End Sub

Private Sub nOption1_Click()
  nd = 1
End Sub

Private Sub nOption2_Click()
  nd = 2
End Sub

Private Sub nOption3_Click()
  nd = 3
End Sub

Private Sub sOption1_Click()
  speed = 1
End Sub

Private Sub sOption2_Click()
  speed = 2
End Sub

Private Sub sOption3_Click()
  speed = 3
End Sub


第二个窗体form1.frm代码
Option Explicit
Dim H As Integer '声明模块级变量-成绩
Public c As Integer '声明模块级变量-随机字符的ASCII码值
Private Sub Form_KeyPress(KeyAscii As Integer)
  Dim i As Integer
  Dim js
  For i = 0 To Label1.Count - 1
    If Chr(KeyAscii) = Label1.Item(i).Caption And Label1.Item(i).Top > 0 And Label1.Item(i).Top < 10000 Then  '如果用户的按键与窗口出现的字符相同
      Randomize    '初始化随机数生成器
      H = H + 2    '用户每击中一个字符，成绩加2分
      Image1.Top = Label1.Item(i).Top            '击中效果图片的TOP与当前击中的字符TOP相同
      Image1.Left = Label1.Item(i).Left - 100    '击中效果图片的LEFT与当前击中的字符TEFT相同
      Image1.Visible = True                   '击中某个字符，则显示击中效果图片
    If shezhi.nd = 1 Then
      c = Int((122 - 97 + 1) * Rnd + 97)
    ElseIf shezhi.nd = 2 Then
      c = Int((90 - 65 + 1) * Rnd + 65)
    ElseIf shezhi.nd = 3 Then
      c = Int((126 - 48 + 1) * Rnd + 48)
    End If
      Label1.Item(i).Caption = Chr(c)          '将产生的随机字符赋值给标签数组中个标签元素的Caption
      Label1.Item(i).Top = 0 - 538 * i
      Label1.Item(i).Left = Int(20000 * Rnd + 1)     '随机字符在窗体的定位
       = "close"
      MMControl1.FileName = App.Path & "\HAMMER.WAV"
       = "open"
       = "play"                       '用户击中某个显示的字符的瞬间，播放该击中效果音
      
    End If

  Next i
  
  
  
  Dim Y
  If KeyAscii = 27 Then                   '如果用户按了ESC键
    Y = MsgBox("确定要退出吗？", vbYesNo, "退出操作")    '弹出消息框
    If Y = vbYes Then            '如果用户选择“是”按钮
      MsgBox "您现在的得分：" & H & "分", , "成绩"                   '结束程序
      End
    End If
  End If
 ' Dim g
  'If H = 20 Then
  '  g = MsgBox("第1关顺利过关！是否继续下一关？", vbYesNo, "过关提示")
   ' If g = vbYes Then
  '    Dim j As Integer
  '    Timer1.Interval = 25
  '  End If
 'End If
 ' Select Case H
 '   Case 0 To 20
  '    Timer1.Interval = 100 '如果成绩在0-20之间，则时钟控件每100毫秒刷新一次
  '  Case 21 To 50
 '     Timer1.Interval = 80 '如果成绩在21-50之间，则时钟控件每80毫秒刷新一次
 '   Case 51 To 100
'      Timer1.Interval = 60 '如果成绩在51-100之间，则时钟控件每60毫秒刷新一次
 '   Case Is > 100
 '     Timer1.Interval = 40 '如果成绩在>100，则时钟控件每40毫秒刷新一次
 ' End Select



End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  Image1.Visible = False                '用户释放按键，击中效果图片不可见
End Sub

Private Sub Form_Load()
If shezhi.speed = 1 Then
  Timer1.Interval = 100
ElseIf shezhi.speed = 2 Then
  Timer1.Interval = 50
ElseIf shezhi.speed = 3 Then
  Timer1.Interval = 20
End If

MMControl2.Visible = False             '游戏时播放背景音乐
= "close"
MMControl2.FileName = App.Path & "\baby.mp3"
= "open"
= "play"
Label2.Top = Form1.ScaleHeight - 500
Label2.Left = Form1.ScaleWidth / 2 - Label2.Width / 2
H = 0
Dim i As Integer
  For i = 0 To Label1.Count - 1                           ' 加载窗体前，初始化标签数组的各元素的随机字符
    Randomize
    If shezhi.nd = 1 Then
      c = Int((122 - 97 + 1) * Rnd + 97)
    ElseIf shezhi.nd = 2 Then
      c = Int((90 - 65 + 1) * Rnd + 65)
    ElseIf shezhi.nd = 3 Then
      c = Int((126 - 48 + 1) * Rnd + 48)
    End If
    Label1.Item(i).Caption = Chr(c)              '产生随机字符
    Label1.Item(i).FontSize = 38              '字体大小
    Label1.Item(i).FontName = "Times New Roman"
    Label1.Item(i).FontBold = True            '字体加粗
    Label1.Item(i).ForeColor = &HFF&          '字体颜色
    Label1.Item(i).Top = 0 - 538 * i          '字体位置
    Label1.Item(i).Left = Int(20000 * Rnd + 1)
  Next i
End Sub


Private Sub Timer1_Timer()
  Label2.Caption = H
  Dim i As Integer
  For i = 0 To Label1.Count - 1
    Label1.Item(i).Top = Label1.Item(i).Top + 40
  Next i
  Dim js1
  while
      
    If Label1.Item(i).Top > 8000 Then
      js1 = MsgBox("游戏结束！再玩一次？", vbYesNo, "游戏结束")   '如果某个随机字符下降到一定高度，则弹出“是否重玩”消息框
      If js1 = vbYes Then            '如果用户按了“是”按钮，重玩游戏
        shezhi.Show
        Unload Form1
      'ElseIf js1 = vbNo Then
      '  End
      End If
    End If

               '显示实时的打字成绩
End Sub