关于VB中的MDI子窗体不能以模式窗体显示

Private Sub cmdModify_Click()
    Dim iRet As Integer
    If dltUser.Text = "" Then
        MsgBox "请选择要修改的用户！", vbOKOnly + vbCritical, "警告"
        Exit Sub
    End If
   
    Select Case CurUser.iUserClass
    Case 1
        If UCase(MyUser.strName) = "ADMIN" And UCase(CurUser.strName) <> "ADMIN" Then
            MsgBox "您没有修改此用户的权限！", vbOKOnly + vbCritical, "警告"
            Exit Sub
        End If
        If UCase(MyUser.strName) = "ADMIN" Then
            iRet = MsgBox("不能修改用户admin的权限和用户名，只能" + vbCrLf & _
                "修改该用户的密码！是否要修改密码？", vbYesNo + vbCritical, "警告")
            If iRet = vbYes Then
                CurUser.strName = MyUser.strName
                With frmUserEdit
                    .Caption = "修