这种单台机器的控件异常问题确实让人头疼，我之前也碰到过类似的情况，给你几个针对性的排查和解决方向：

1. 检查Inventor与VBA环境配置 #

• 关闭硬件加速：Inventor的硬件加速偶尔会干扰UI控件的渲染逻辑。打开Inventor选项→显示，找到硬件加速相关设置，暂时关闭后重启Inventor测试。
• 核对VBA引用：打开VBA编辑器，点击「工具」→「引用」，对比正常PC的引用列表，确认这台机器没有缺失或版本不一致的引用（比如Microsoft Forms 2.0 Object Library这类和窗体控件相关的库），如果有红叉的引用，修复或重新勾选。

2. 调整代码执行逻辑与强制刷新 #

• 强制控件刷新：在设置Listbox.Height后，添加刷新代码确保属性生效：

  ' 设置Listbox高度后执行
  ListBox1.Refresh
  Me.Refresh
  

• 切换事件触发时机：把调整窗体尺寸的代码从UserForm_Initialize()移到UserForm_Activate()事件中。因为Initialize是在窗体加载前触发，部分控件可能未完全渲染，而Activate是窗体显示后触发，更适合处理控件尺寸相关的调整。

3. 排查系统与驱动问题 #

• 更新显卡驱动：Inventor对显卡驱动兼容性要求较高，旧驱动可能导致UI控件渲染异常。去显卡厂商官网下载并安装最新驱动后重试。
• 调整高DPI设置：如果这台PC的显示缩放比例（比如125%/150%）和其他机器不同，高DPI可能打乱VBA控件的尺寸计算。右键Inventor图标→属性→兼容性，勾选「高DPI缩放替代」，选择「应用程序」，重启Inventor后测试。

4. 重新注册Forms控件 #

如果系统中MSForms.ocx控件的注册信息损坏，也会导致控件属性异常。以管理员身份打开命令提示符，执行以下命令重新注册：

' 32位系统
regsvr32.exe C:\Windows\System32\MSForms.ocx

' 64位系统额外执行
regsvr32.exe C:\Windows\SysWOW64\MSForms.ocx

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