先在VB6IDE中运行，不要有普通错误，否则也是崩溃。然后生成EXE文件，当EXE出现APPCRASH（Windows Server才会有APPCRASH提示，Win10没有提示直接崩溃或闪退）时的调试方法：

在VB6源码中，直接用：

Exit Sub

等方法或注释掉块，一行行（或一段）生成EXE文件，再运行，直到找出问题。它们可能是使用了：

CopyMemory
DoEvents
...

另外：

Dim bName(3) As Byte
'这种会导致崩溃，必须用：
Dim bName() As Byte
ReDim bName(3)

也可能是操作了UI（多线程最好不要操作任何UI）。

当然调试VB6生成EXE可以使用 插件代码优化者（Code Organizer）http://manongku.com/p6628949.html 快捷生成EXE，也可以方便对块注释和恢复。