vb中的findwindow函数解决方法

vb中的findwindow函数
我的目的是使用findwindow函数获取打开的IE窗口的句柄:
Do   While   n   =   0
n   =   FindWindow( "IEFrame ",   vbNullString)
msgbox   n
loop
msgbox   "任务完成 "
我当前一共打开4个IE的窗口,可是这样的程序只能获取一个句柄,之后就完了,请问上面的程序应该如何写了才能正确,谢谢~

[解决办法]
IE窗口有自己的COM接口
用ShellWindows集合对象可以轻松枚举。引用Web库