如何让MsgBox弹出窗口在桌面的最前面?
Dim Msg, Style, Response, MyStringMsg = sData '定义消息文本
Style = vbYesNo + vbQuestion + vbDefaultButton1 ' 定义按钮
Response = MsgBox(Msg, Style)
If Response = vbYes Then ' 用户按下“是”
Printer.FontName = "黑体"
Printer.FontSize = 12
Printer.ScaleMode = vbTwips
Printer.Zoom = 100
Printer.Print Msg ' 完成某操作
Printer.EndDoc
Else ' 用户按下“否”
MyString = "No" ' 完成某操作
End If
这段程序会弹出一个需要打印的窗口,如有其它程序时该窗口会被盖住,如何让它在所有程序前面显示。。。谢谢。。