VBA对话框拖拽出现重影

使用VBA做的对话框，在Excel2003或2007下直接执行都没有问题。
用VB6做了个标准EXE，通过EXE启动宏。Excel2003下也没有问题，可2007下就出现用鼠标拖拽对话框时，对话框产生重影。
哪位大侠帮忙解决一下啊？
无代码无真相 代码如下：
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

引用 1 楼 veron_04 的回复:

无代码无真相

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

补充：VB ,  VBA