1
2
3Dim objDesc ‘As Description
4Dim objBrowsers ‘As Collection
5
6Set objDesc = Description.Create
7objDesc(“micclass”).Value = “Browser”
8Set objBrowsers = Desktop.ChildObjects(objDesc)
9
10'Zero-based collection
11For lBrowserIndex = 0 to objBrowsers.Count - 1
12 strTemp = (lBrowserIndex).GetROProperty("hwnd") Then
13 Set objBrowser = Nothing
14Next
15
16Set objBrowsers = Nothing
17Set objDesc = Nothing
18