DTS Progress

[3615]

I'm using a VB6 program to execute a DTS Package (SQL7)

this is my code

Private WithEvents mobjPackage As DTS.Package
Set mobjPackage = New DTS.Package

private MySub()
mobjPackage.LoadFromStorageFile "C:\...\MySql.dts", ""
mobjPackage.Execute
end sub()

I can execute the DtsPackage but my problem is
that the Event mobjPackage_OnProgress(... ...) it is not fired !!!

Does anyone knows why ?

Thanks