private sub routine1 ()
dim i as integer
dim obj as imagelist

set obj = new imagelist
...
...

end sub

will the "i" release after routine1 runs?
will the "obj" release after routine1 runs?
if not how to release them?