如何调用（实现）WINDOWS中的文件拷贝动画窗体？

[Rock]

就是那个有文件拷贝动画、剩余时间、工作进度条的窗体。

[windoze]

Public Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Long
fAnyOperationsAborted As Integer
hNameMappings As Any
lpszProgressTitle As String
End Type

Public Declare Function SHFileOperation Lib "shell32"(lpFileOp As SHFILEOPSTRUCT) As Integer

[Rock]

谢谢windoze的帮助。依据你的提示，我在实验的时候， 编译不通过，“as any”被提示此类型没有声明，这是何原因？

[TopHead]

Option Explicit
Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Long
fAnyOperationsAborted As Integer
hNameMappings As Variant
lpszProgressTitle As String
End Type

Private Declare Function SHFileOperation Lib "shell32" (lpFileOp As SHFILEOPSTRUCT) As Integer

Private Sub Form_Click()
Dim obj As SHFILEOPSTRUCT
obj.hwnd = Me.hwnd
obj.wFunc = 2
obj.pFrom = "C:\My Documents\outlook.pst"
obj.pTo = "C:\My Documents\Wecoo\outlook.pst"
obj.fFlags = 0
obj.fAnyOperationsAborted = 1
obj.lpszProgressTitle = "DEMO"
Call SHFileOperation(obj)
End Sub

[Rock]

多谢二位的帮助，每人二十五大分，:-)