Windows 7 显示在应用程序顶部的窗口/VB6

我有一个VB6应用程序，由MDI表单、MDI子表单和标准表单组成。此应用程序在Windows 7/Windows 2008 Server R2之前的操作系统上运行良好。在Windows 7/Windows 2008 Server R2上，我在显示模式窗体时遇到问题。模态表单有时不会停留在前台，而它后面的表单会出现在前台，即使它是另一个应用程序

例如，我打开Microsoft Word。然后我打开我的应用程序（带有MDI子项的MDI表单），它位于屏幕上Word的顶部。我单击MDI子窗体上的一个按钮，该按钮调用一个模式弹出窗体。Word出现在屏幕上，现在是最高级的表单，但没有焦点，也不会响应任何按键事件。模式弹出窗口虽然位于Word后面，但对按键做出响应

这种情况并非每次都会发生，但如果我单击MDI子级上的按钮并反复关闭模式窗体，我可能会在某个时候导致这种情况发生。我的用户经常看到它，因为他们整天都在屏幕上进进出出

你知道这是什么原因吗？在Windows XP上也可以

MDIForm1的代码：

Private Sub MDIForm_Load()
  Form1.Show
End Sub

Form1的代码（带有单个命令按钮）：

Form2的代码（带有单个命令按钮）：：

---

showmetemoney又名showmetemoney，请显示一些代码。@showmetemoney-在原始帖子中添加了代码。我无法复制您的问题。此外，您还需要从

Me.Show

-it错误中删除vbModal。除此之外，我在Win7中的代码运行得很好（Word不会在应用程序前弹出）@showmetemoney-我必须单击Form1上的按钮打开Form2，然后单击Form2上的按钮关闭Form2，并反复执行该循环，大约每30-40次就会发生一次。我可以在多台Windows 7计算机上复制。

Private Sub Command1_Click()   
    Form2.Display
End Sub

Public Sub Display()
  Command1.Caption = "Close Me"
  Me.Show vbModal
End Sub

Private Sub Command1_Click()
 Unload Me
End Sub