SendMessage 的问题

Question

不要用SendMessage方法，首先在程序中加入引用 Microsoft Internet Controls
代码如下：
Dim dWinFolder As New ShellWindowsPrivate Sub Command1_Click()    
    Dim objIE As Object
    Dim objDoc As Object
    
    For Each objIE In dWinFolder
            List1.AddItem objIE.Document.Title
            List2.AddItem objIE.LocationURL
    Next
End SubPrivate Sub List1_Click()
    Dim o As Object
    Dim d As Integer
    
    d = List1.ListIndex
    dWinFolder.Item(d).Quit
    List1.RemoveItem d
End Sub
点击Command1就可以将当前的浏览器或者资源管理器列表到List1上，点击List1上的
项就可以关闭相应窗口。