Dim vDoc As IHTMLDocument2
            Set vDoc = WebBrowser1.Document
            Dim aLink As HTMLLinkElement
                For Each aLink In vDoc.all
                  If aLink.href = news(List1.ListIndex + 1).URL Then
                        aLink.FireEvent ("onmousedown")
                    Exit For
                  End If
                Next