VB6新窗体/ msgbox弹出父窗体后面的Win7

Question

我有一个用vb6编写的窗体应用程序。它工作正常，直到我们的用户最近将他们的工作站从WinXP升级到Win7。她是问题的细节：

在父表单后面打开子表单或消息框。用户无法执行任何操作，因为应用程序专注于子窗体/消息框。他们必须使用任务管理来杀死整个应用程序。此外，这个问题是随机发生的（一天一到两次）。我无法在我的开发工作站中复制该问题。有没有人有类似的问题？或任何建议会有所帮助？

我在用户的计算机上尝试了以下操作，但它们都不起作用：

1. 将应用程序设置为在Windows XP（Service Pack 3）的兼容模式下运行。
2. 在其工作站上授予用户本地管理员权限。
3. 确保用户计算机上的所有参考和组件都与我们的开发工作站版本相同。

非常感谢

下面是弹出子窗口的代码：

frmClinicalQuestion2.txtCQTwoComments.Text = Trim(m_QViolComm)
frmClinicalQuestion2.txtCQTwoHistoryComments.Text = Trim(m_QViolHistComm)
Call SetValues(txtQ2, OptQ2, m_QViol)
Call SetValues(frmClinicalQuestion2.txtCQTwo, frmClinicalQuestion2.OptCQTwo, m_QViolHist)
frmClinicalQuestion2.Show 1, frmClinical

以下是如何卸载表单：

Unload frmClinicalQuestion2

Answer 1

将应用程序设置为在Windows XP（Service Pack 3）的兼容模式下运行后，问题的频率从每天2~3次减少到每周1~2次。用户现在可以使用此解决方案。我们将很快使用.NET框架重写该项目。谢谢@johnwait和@Craig Johnson给我的建议。