Handles leak

[Uncle Michael]

After some work I think I've addressed some leaks, but have at least one more to go. It appears to be this script that retrieves some weather maps.

What am I missing and how can I better manage the resources here?

    Sub Main(parm As Object)

        Dim A As Object
	A = hs.GetURLImage("http://sirocco.accuweather.com", "/sat_mosaic_400x300_public/rs/isarny_.gif", 0, 80, "html/NYRad.gif")
        A = hs.GetURLImage("http://icons-ak.wunderground.com", "/data/640x480/2xne_rd.gif", 0, 80, "html/NERad.gif")
        A = hs.GetURLImage("http://www.accuweather.com", "/adc_images2/english/forecast/fhgh/400x300/usny__todhigh.gif", 0, 80, "html/HighT.gif")
        A = hs.GetURLImage("http://sirocco.accuweather.com", "/iwxpage/adc/keys/fore_high_temp.gif", 0, 80, "html/Scale.gif")
        A = hs.GetURLImage("http://www.centralmediaserver.com", "/cctvi_accuweather/nxrd_ny_.png", 0, 80, "html/NYxrd.png")
        A = hs.GetURLImage("http://icons-ecast.wunderground.com", "/data/640x480/2xne_ir.gif", 0, 80, "html/NESat.gif")
        A = hs.GetURLImage("http://icons.wunderground.com", "/data/640x480/2xradara5.gif", 0, 80, "html/Precip.gif")
        A = Nothing

        GC.Collect()

    End Sub

[Uncle Michael]

Bump.

[Uncle Michael]

Solved?

Progress.

I may have found the source of this problem. It turns out that not one, but two of the links were broken. Removing those statements seems to keep the HS handles steady.

Still one more leak to plug: launching another program.