VBA对话框拖拽出现重影

[wangonly75]

使用VBA做的对话框，在Excel2003或2007下直接执行都没有问题。
用VB6做了个标准EXE，通过EXE启动宏。Excel2003下也没有问题，可2007下就出现用鼠标拖拽对话框时，对话框产生重影。
哪位大侠帮忙解决一下啊？

[贝隆]

无代码无真相

[wangonly75]

代码如下：
Set ExcelApp = CreateObject("Excel.Application")

Set WorkBook = ExcelApp.Workbooks.Open(ProgramPath)
ExcelApp.Visible = True
ExcelApp.ScreenUpdating = False
ExcelApp.Run "CreateInputData", IniPath
WorkBook.Close
ExcelApp.ScreenUpdating = True
ExcelApp.Visible = True

[wangonly75]

[wangonly75]

[Quote=引用 1 楼 veron_04 的回复:]
无代码无真相
[/Quote]
谢谢veron_04！
已上代码。帮俺看下吧。
重影我截了张图，在3楼，可似乎看不到。现象就是鼠标拖住标题栏（想要移动对话框位置的操作），然后松开，对话框位置确实移动了，而原先的位置也会留个对话框在。