遇到这种明明代码极简却崩溃的情况确实闹心——就一句MsgBox，开了XP兼容模式还搞不定，我给你几个针对性的排查和修复方案，都是VB6在Win10环境下踩过的实际坑：

1. 先搞定权限与运行时库的兼容性 #

Windows 10对老程序的权限管控和运行时支持经常出问题：

• 右键你的VB6程序exe文件，打开「属性」→「兼容性」，除了勾选「以Windows XP (Service Pack 3)模式运行」，务必同时勾选「以管理员身份运行此程序」——很多时候控件触发事件时的权限不足会导致莫名其妙的崩溃。
• 确认系统里安装了完整的VB6运行时包，如果是简化版可能缺失关键组件，建议重新安装适配Win10的官方VB6 Runtime。

2. 排查控件本身的异常状态 #

代码没问题，但控件的属性或内部状态可能在Win10下出问题：

• 打开VB6 IDE，找到这个ChkNonSerialize复选框，检查它的Name属性是否唯一，有没有和窗体其他控件、全局变量重名的情况——重名会导致事件触发时的冲突。
• 尝试删除这个复选框，重新拖一个全新的复选框到窗体，再手动写一遍点击事件代码——有时候控件的内部绑定状态损坏，会引发无逻辑的崩溃。
• 检查复选框的Parent属性，确认它直接属于窗体，没有被意外嵌套到Frame、PictureBox这类容器控件里，容器控件的兼容性问题也可能传导到子控件。

3. 用调试和错误捕获定位根源 #

你可以通过调试拿到更具体的崩溃线索：

• 在VB6 IDE里给MsgBox "Test"这行加断点，运行程序后点击复选框。如果断点能命中，说明是MsgBox调用本身的问题；如果断点没触发就崩溃，那问题出在复选框的事件触发机制上。
• 给代码加上错误捕获，看看能不能拿到崩溃的具体错误信息：

Private Sub ChkNonSerialize_Click()
    On Error GoTo ErrHandler
    MsgBox "Test"
    Exit Sub
ErrHandler:
    MsgBox "错误详情：" & Err.Description & vbCrLf & "错误代码：" & Err.Number
End Sub

如果崩溃前触发了错误，这个捕获能帮你精准定位问题。

4. 检查系统的VB兼容组件 #

Windows 10的系统更新可能会误删或禁用VB6的兼容组件：

• 打开「控制面板」→「程序和功能」→「启用或关闭Windows功能」，找到「旧版组件」，确保「Visual Basic 6.0 运行时」相关选项已勾选启用。
• 如果你安装了VB6 IDE，尝试修复安装一遍，确保IDE和运行时的组件完整匹配。

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