VBA动态创建的ListBox.List在UserForm加载时消失问题咨询

• 64位Excel 365环境，已配置VBA扩展性加载项引用的前提下，通过编程方式在UserForm设计阶段创建并初始化ListBox控件时，初始状态符合预期：ListBox在UserForm上正常可见，List属性的条目显示在列表框凹陷窗口区域，底部带有滚动条。
  1. 加载前的窗体
• 调用VBA.UserForms.Add(myUserform.Name)方法加载UserForm后，ListBox窗口立即变为空白，滚动条消失。尽管此时窗体上的ListBox看起来为空，但读取设计时实例的ListBox.List属性，仍能获取全部原有条目。
  2. 加载后的VBE窗体视图
• 调用Show方法显示窗体时，界面呈现效果与加载后一致，仍为空白无滚动条状态。
  3. 运行时显示的窗体
• 相同异常现象可在ComboBox控件上稳定复现。

最小复现代码 #

Sub DisappearingListboxListMRE()
    Dim myUserform As VBComponent
    Dim lbxTest As MSForms.ListBox
    Dim UF As Object
    
    '添加用户窗体
    Set myUserform = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
    
    '在窗体上创建ListBox控件
    Set lbxTest = myUserform.Designer.Controls.Add("Forms.ListBox.1")

    '初始化ListBox条目
    lbxTest.List = Split("Item 1;Item 2;Item 3", ";")
    
    '代码在此处暂停，请在VBE中打开对应UserForm，可观察到ListBox包含3个条目、底部有滚动条，之后恢复执行
    Stop
    
    
    '加载窗体但暂不显示
    Set UF = VBA.UserForms.Add(myUserform.Name)
    
    '代码在此处暂停，请在VBE中打开对应UserForm，可观察到ListBox无可见条目、底部无滚动条，之后恢复执行
    Stop
    
    '注意：显示的用户窗体同样无条目和滚动条
    UF.Show
    
    ThisWorkbook.VBProject.VBComponents.Remove VBComponent:=myUserform
End Sub

这是64位版本MSForms控件库（FM20.dll）的已知缺陷：通过VBA扩展性接口在设计时动态创建ListBox/ComboBox类列表控件时，直接给设计时控件实例的List属性赋值的内容，不会被序列化持久化到窗体的定义存储流中。
调用VBA.UserForms.Add方法时，系统会基于窗体定义流生成一套全新的运行时控件实例，这套实例里根本没有写入之前赋值的列表项数据，自然无法渲染条目和对应滚动条。代码中能读取到List属性保留原有值，是因为持有的是设计时宿主的控件实例引用，和运行时加载生成的控件实例不是同一个对象。32位Office不存在该问题，32位环境下设计时赋值的列表项会被正确写入窗体存储流。

方案1：注入窗体初始化事件代码（推荐） #

动态创建控件时仅设置位置、尺寸、名称等布局类属性，不要在设计时给List属性赋值；改为通过VBA扩展性接口给UserForm的代码模块写入UserForm_Initialize事件逻辑，在事件中完成列表项赋值。窗体加载运行时实例时会自动执行初始化事件给控件赋值，完全符合VBA窗体生命周期逻辑，稳定性最高。
核心实现示例：

' 省略创建窗体、添加ListBox、设置控件大小/位置的代码，移除原设计时给lbxTest.List赋值的逻辑

' 给窗体模块注入初始化代码
Dim codeMod As CodeModule
Set codeMod = myUserform.CodeModule
codeMod.AddFromString _
    "Private Sub UserForm_Initialize()" & vbCrLf & _
    "    Me.Controls(""" & lbxTest.Name & """).List = Split(""Item 1;Item 2;Item 3"", "";"")" & vbCrLf & _
    "End Sub"

' 后续加载、显示窗体即可正常渲染列表
Set UF = VBA.UserForms.Add(myUserform.Name)
UF.Show

方案2：加载窗体后手动重新赋值 #

如果不想动态注入代码，可以在调用VBA.UserForms.Add拿到运行时窗体实例后，手动遍历控件给对应ListBox/ComboBox的List属性重新赋值，再调用Show方法。该方案需要在动态创建控件时额外缓存所有列表控件的初始条目数据，流程相对繁琐。

内容的提问来源于stack exchange，提问作者dorbitbrown