急！编译错误:过程声明与同名事件或过程的描述不匹配

Question

我在调试时提示：编译错误:过程声明与同名事件或过程的描述不匹配。请各位帮忙看看 我仅仅只把主窗体做好了就编译不过，郁闷啊Private Sub MDIForm_Load()
    Me.Left = GetSetting(App.Title, "Settings", "MainLeft", 1000)
    Me.Top = GetSetting(App.Title, "Settings", "MainTop", 1000)
    Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)
    Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500)
    
End SubPrivate Sub MDIForm_Unload(Cancel As Integer)
    If Me.WindowState <> vbMinimized Then
        SaveSetting App.Title, "Settings", "MainLeft", Me.Left
        SaveSetting App.Title, "Settings", "MainTop", Me.Top
        SaveSetting App.Title, "Settings", "MainWidth", Me.Width
        SaveSetting App.Title, "Settings", "MainHeight", Me.Height
    End If
End Sub
Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)
    On Error Resume Next
    Select Case Button.Key
        Case "Quit"
            Unload Me
            Exit Sub
        Case "AddRoom"
            frmOperatorMag.Show
            Exit Sub
        Case "Search"
            frmRoomSearch.Show
            Exit Sub
        Case "Report"
            frmStaticReport.Show
            Exit Sub
        Case "Operator"
            frmOperatorMag.Show
            Exit Sub
        Case "CodeMaintain"
            frmCodeTableEdit.Show
            Exit Sub
        Case "Cascade"
            Me.Arrange vbCascade
            Exit Sub
        Case "Horizon"
            Me.Arrange vbHorizontal
            Exit Sub
        Case "Vertical"
            Me.Arrange vbVertical
            Exit Sub
        Case "Help"
          frmAbout.Show
          
    End Select
End SubPrivate Sub mnuHelpAbout_Click()
    frmAbout.Show vbModal, Me
End Sub

Private Sub mnuHelpAbout_Click() 错误指向这条语句。我在做一个酒店管理系统。

Answer 1

可能 mnuHelpAbout 控件数组Private Sub mnuHelpAbout_Click(Index As Integer) 
    frmAbout.Show vbModal, Me 
End Sub