刚入坑编程的小萌新

请各位大神帮我看一下这个代码中的二义性的词（mnumng)要换成什么好





Private Sub MDIForm_Load()
   g_CurUserID = 0
   g_bLogin = False
   g_bAdmin = False
   g_bStudent = False
   mnuFileLog_Click
End Sub

Private Sub mnuAboutit_Click()
   MsgBox '     VB课程设计实例"+ChrS(13)+ChrS(10)+"---学生信息管理系统"+ChrS(13)+cHRs(10)+cHRS+"     2001.12",O,"关于学生信息管理系统“

End Sub

Private Sub mnuExit_Click()
   If MsgBox("是否退出系统？", vbYesNo + vbCritical, "系统") = vbYes Then
   End
   
   
   
   End If
   End Sub
   Private Sub mnuFileLog_Click()
   CloseWin
   Login.Height = 3600
   Login.Width = 4000
   Login.Left = 5000
   Login.Top = 2000
   Login.Show
   End Sub
   Private Sub mnuLogout_Click()
   
   If MsgBox("是否真的注销当前用户？", vbCritical + vbYesNo, "注销") = vbYes Then
   g_bLogin = False
   
   g_bAdmin = False
   g_bSstudent = False
   g_CurUserID = 0
   CloseWin
   End If
   End Sub
   Private Sub MnuMng_Click()
   If g_bAdmin = True Then
   CloseWin
   manage.Show
   Else
   MsgBox "请以管理员身份登录系统！", vbInformation, "登录"
   End If
   End Sub
   Private Sub MnuBorrow_Click()
   If g_bStidemt = True Then
   Cosewin
   frmSearch.Show
   Else
   MsgBox "请先登录系统！", vbInformation, "登录"
   End If
   CloseWin
   End Sub
   Private Sub mnuReg_Click()
   CloseWin
   Register.Show
   End Sub
   Private Sub Toolbarl_ButtonClick(ByVal Button As MSComctlLib.Button)
      Select Case Button.Key
      Case "login"
        mnuFileLog_Click
      Case "logout"
        mnuLogout_Click
      Case "reg"
        mnuReg_Click
      Case "mng"
        MnuMng_Click
      Case "borrow"
        MnuBorrow_Click
      End Select
    End Sub
   
    Private Sub MnuMng_Click()
    '点击”系统员管理“
        If g_bAdmin = True Then '如果是管理员，则显示管理界面
           CloseWin
           manage.Show
        Else
           MsgBox "请以管理员身份登录系统!", vbInformation, "登录"
        End If
        
    End Sub
    Private Sub MnuBorrow_Click()
    '点击”用户查询“
       If g_bStudent = True Then
          CloseWin
          frmSearch.Show
       Else
           MsgBox "请先登录系统!", vbInformation, "登录"
       End If
       CloseWin
    End Sub
    Private Sub EnuReg_Click()
    '点击注册
        CloseWin
        Register.Show
    End Sub
    Private Sub Toolbarl_ButtonClick(ByVal Button As MSComctlLib.Button)
       Select Case Button.Key
       Case "login"
          mnuFieLog_Click
       Case "logout"
          mnuLogout_Click
       Case "reg"
          mnuReg_Click
       Case "mng"
          MnuMng_Click
       Case "borrow"
          MnuBorrow_Click
       End Select
      
    End Sub
   
         
        
        
      
   
   
   
   
   
   
   
   

   
End Sub