VB6中，多线程读取（不是写）一个全局变量会导致有问题吗？

在 VB6 中，多线程读取（不写入）同一个全局变量理论上风险较低，但仍可能存在潜在问题，这与 VB6 的线程模型和变量类型密切相关。

核心原因分析：

VB6 的线程安全本质
VB6 本身是单线程模型的开发工具，其运行时环境（VBRUN）并非为多线程设计，不提供原生的线程安全支持。即使通过特殊方式（如CreateThread API、ActiveX EXE 的 “线程池” 模式）实现了多线程，VB6 的内部机制（如内存管理、引用计数、字符串处理等）也可能在多线程访问时出现冲突。

只读操作的特殊性
对于基础数据类型（如 Integer、Long、Double 等） 的全局变量，单纯的读取操作（不涉及写入）通常是 “原子性” 的（一次操作即可完成），多线程同时读取一般不会导致数据损坏或逻辑错误。
但对于复杂类型（如 String、Object、数组等），情况不同：

VB6 的字符串是 “BSTR” 类型，内部包含指针和长度信息，多线程读取时可能因内存布局变化（即使未写入，也可能被其他线程的操作间接影响）导致访问异常。

对象变量本质是指针，多线程读取时可能因对象销毁 / 引用计数变化导致无效指针访问。

潜在风险
即使是只读操作，仍可能因 VB6 运行时的线程不安全特性导致：

程序崩溃（Access Violation）；

读取到不一致的中间状态（虽然未写入，但复杂类型的内部结构可能被其他线程意外修改）；

内存泄漏或资源竞争（VB6 的运行时锁机制可能被多线程触发异常）。

结论：

在 VB6 中，不建议在多线程**享全局变量，即使是只读操作。若必须实现多线程读取：

优先使用基础数据类型（避免字符串、对象、数组）；

尽量通过 “线程局部存储”（TLS）或 “消息传递” 替代全局变量共享；

若必须共享，需通过同步机制（如临界区CriticalSection）保护，即使是只读操作（避免 VB6 运行时的内部冲突）。

新建From1（窗体），新建Command1（按钮CommandButton），代码：

新建modTLS.bas（模块），代码：