为什么总是说类型不配

Option Explicit
Dim main As New main_frm
Public max_index As Integer
Public myindex As Integer
Private Sub close_Click()
  On Error Resume Next
'循环语句
  For Each main In Forms
    If main.MDIChild = True Then
       Unload main
    End If
  Next
  
  Dim FNum As Integer
  Dim strfilename As String
  Dim i As Integer
  
  FNum = FreeFile
  strfilename = App.Path & "\cdxx.ini"
  If Dir(strfilename) <> "" Then Kill strfilename
  Open strfilename For Output As #FNum
       For i = 1 To mnufilelist.Count - 1
           Print #FNum, mnufilelist(i).Caption
       Next
  Close #FNum
  Exit Sub
End Sub
Private Sub MDIForm_Load()
  Dim file As Long
  Dim mystring As String
  Dim s As String
  Dim strfilename As String
  strfilename = App.Path & "\cdxx.ini"
  file = FreeFile()
  On Error Resume Next
  Open strfilename For Input As #file   '打开文件菜单列表
       Do While Not EOF(file)
          Line Input #file, mystring
          If mystring <> "" Then
             max_index = max_index + 1
             Load mnufilelist(max_index)
             mnufilelist(max_index).Caption = mystring
             mnufilelist(max_index).Visible = True
          End If
       Loop
  Close #file                           '关闭文件菜单列表
End SubPrivate Sub MDIForm_Unload(Cancel As Integer)
  close_Click
End SubPrivate Sub mnufilelist_Click(Index As Integer)
  If mnufilelist(Index).Caption <> "" Then
    Static i As Integer
  If i < 1 Then i = 1
  main_frm.Visible = False
  Dim main As New main_frm
  main.Caption = mnufilelist(Index).Caption
  i = i + 1
  main.Picture = LoadPicture(mnufilelist(Index).Caption)
  main.Show
  End If
End Sub
Private Sub open_Click()  '打开带图形的窗体
  CommonDialog1.Filter = "所有图形文件" & "|*.jpg; *.bmp ; *.ico ;*.gif;*.cur"
  CommonDialog1.ShowOpen
  Static i As Integer
  If i < 1 Then i = 1
  main_frm.Visible = False
  Dim main As New main_frm
  main.Caption = CommonDialog1.FileName
  i = i + 1
  main.Picture = LoadPicture(CommonDialog1.FileName)
  main.Show
  max_index = mnufilelist.Count
  Load mnufilelist(max_index)
  mnufilelist(max_index).Caption = CommonDialog1.FileName
  mnufilelist(max_index).Visible = True
End Sub
Private Sub exit_Click()
  close_Click
  End
End Sub我做了一个带历史信息的菜单的例子
为什么:for each main in forms这里总说不匹配