Vba vbModeless中断用户窗体

我在模块中有以下代码：

Public Sub AddInfoCreate(ByVal control As IRibbonControl)

With New MakeAddInfo '<- form instance gets created here
    .Show
    If .IsCancelled Then Exit Sub

    Dim MainName As String
    Dim AddName As String
    Dim AddNumber As Long
    MainName = .MainName
    AddName = .AddName
    AddNumber = .AddNumber
End With '<- form instance gets destroyed here

MsgBox "Let's solve this. " & MainName & ", " & AddName & ", " & AddNumber

End Sub

公共子AddInfo创建（ByVal控件作为IRIBOnControl）
如果使用New MakeAddInfo，我只会在不使用带有

的

或
New
@braX的情况下使用它，我认为这不起作用-它破坏了功能。答案说明了原因。那就是如果你使用一个类。。。这不是我要做的。请把你的两个问题分成两个线程。或者，您是否尝试过在UserForm属性中将ShowModal设置为False？有什么区别吗？@JohnKorchok我试过了-没有区别。