急急急!!!!毕业设计快作完了,还有个烦心的是不能解决.请大家来帮忙!!!!!!!谢了!!!

Question

在程序运行时,我用窗体子代的关闭按钮,即右上角的小叉进行关闭,问题出现了.
系统报错"索引超出边界".错误代码如下.
*包错处* frmmain.lv1.ListItems.Remove j 'frmmain.lv1.ListItems(j)
            Set itm = frmmain.lv1.ListItems.Add(j, , j)  'Author 字段。
            itm.ListSubItems.Add "1", "", Arry(j, 0)
            itm.ListSubItems.Add "2", "", Arry(j, 1)
            itm.ListSubItems.Add "3", "", Arr1(j, 0)
            itm.ListSubItems.Add "4", "", Arr1(j, 1)
            itm.ListSubItems.Add "5", "", Arr(j)
            itm.ListSubItems.Add "6", "", Arr1(j, 2)
            itm.ListSubItems.Add "7", "", Arr1(j, 3)
请大家指教.
急等            

Answer 1

Private Sub cmdMin_Click()
    On Error Resume Next
    Me.WindowState = 1
End Sub

Answer 2

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim MyExit As String
   MyExit = MsgBox("您真的想退出吗？！", vbOKCancel + vbQuestion, "退出系统")
   If MyExit = vbOK Then
      End
   Else
      Cancel = 1
   End If
End Sub