Question

vb如何实现这种样式的消息框？

就是要在xp下显示为经典样式

Answer 1

用API函数GetWindowLong获取窗体的样式，把扩展样式去掉，然后再用SetWindowLong返回给窗体。
但是要想实现很困难，因为当消息框弹出后，整个程序会处于挂起状态，只有等消息框关闭后才能继续运行，所以没法在本程序内部对消息框的样式进行修改。只能专门设计个程序拦截消息框并修改样式……但……这真的有必要吗？

Answer 2

s = MsgBox("应用程序正常初始化（Oxc0000135）失败,单机“确定”,终止应用程序。", 16, "QQHelper.exe-应用程序错误")