Как закрыть програмно созданую форму

 Sub mmm()
    Dim MyFormKilkistiPorcij  As Object
    Set MyFormKilkistiPorcij = ThisWorkbook.VBProject.VBComponents.Add(3)
    With MyFormKilkistiPorcij
        .Properties("Caption") = "Кількість порцій"
        .Properties("Width") = 359
        .Properties("Height") = 273
        .Properties("DrawBuffer") = 1048576
    End With
    Dim NewFrame(1 To 3) As MsForms.Frame
    Set NewFrame(3) = MyFormKilkistiPorcij.Designer.Controls.Add("forms.frame.1", "Frame3", True)
    With NewFrame(3)
        .Caption = ""
        .Top = 218
        .Left = 1
        .Height = 34
        .Width = 354
    End With
    Dim NewLabel(1 To 10) As MsForms.Label
    
'--NewLabel(9)[Label9] i NewLabel(10)[Label10] малюють одну кнопку---------------------------------
    Set NewLabel(9) = MyFormKilkistiPorcij.Designer.Controls("Frame3") _
                                                    .Add("forms.Label.1", "Label9", True)
    With NewLabel(9)
        .Caption = ""
        .Left = 0
        .Top = 0
        .Height = 30
        .Width = 350
        .Font.Size = 8
        .TextAlign = fmTextAlignCenter
        .BorderStyle = fmBorderStyleNone
        .SpecialEffect = fmSpecialEffectRaised
    End With
    Set NewLabel(10) = MyFormKilkistiPorcij.Designer.Controls("Frame3") _
                                                    .Add("forms.Label.1", "Label10", True)
    With NewLabel(10)
        .Caption = "Підтвердити кількість порцій"
        .Width = 130
        .Left = (NewLabel(9).Width - NewLabel(10).Width) / 2
        .Height = 16
        .Top = ((NewLabel(9).Height - NewLabel(10).Height) / 2) + 2
        .Font.Size = 8
        .TextAlign = fmTextAlignCenter
        .BorderStyle = fmBorderStyleNone
    End With
'--------------------------------------------------------------------------------------------------
    
    
'--Код який пишеться для форми---------------------------------------------------------------------
    With MyFormKilkistiPorcij.CodeModule
        Line = .CountOfLines
        '--незакривати на хрестик--------------------------------------------------------------------------
        .InsertLines Line + 1, "Private sub userform_QueryClose(Cancel As Integer, CloseMode As Integer)"
        '.InsertLines Line + 2, "If CloseMode = vbFormControlMenu Then"
        '.InsertLines Line + 3, "If MsgBox(""Ви підтверджуєте кількість порцій?"", vbYesNo, """") = vbNo Then Cancel = True"
        '.InsertLines Line + 4, "End If"
        
        .InsertLines Line + 4, "Cancel = true"
        .InsertLines Line + 5, "End Sub"
        
        .InsertLines Line + 10, "Private Sub Label9_Click()"
        .InsertLines Line + 11, "Call myKnopka_L9_L10"
        .InsertLines Line + 12, "End Sub"
        
        .InsertLines Line + 13, "Private Sub Label10_Click()"
        .InsertLines Line + 14, "Call myKnopka_L9_L10"
        .InsertLines Line + 15, "End Sub"
        
        .InsertLines Line + 16, "Private Sub myKnopka_L9_L10()"
        '.InsertLines Line + 17, "MsgBox (""Нажата кнопка """"Підтвердити кількість порцій"""""")"
        
        '--вот здесь загвостка--------------------------
        '.InsertLines Line + 18, "cancel = false"
        .InsertLines Line + 18, "UserForm.hide" '??????????????????????
        
        '-----------------------------------------------
        
        .InsertLines Line + 20, "End Sub"
        
       
 
    End With
'--------------------------------------------------------------------------------------------------
    VBA.UserForms.Add(MyFormKilkistiPorcij.Name).Show
    ThisWorkbook.VBProject.VBComponents.Remove MyFormKilkistiPorcij ' удаляем форму
End Sub

ThisWorkbook.VBProject.VBComponents.Remove MyFormKilkistiPorcij