是要HTML Object Library里的,不要用WebBrowser1_StatusTextChange去获取 (因为需要获取该对象)如何获取 鼠标 放在链接上时 的URL地址?(鼠标没点击)下面是对着 链接 点右键,获取该链接的方法Dim WithEvents objDoc As HTMLDocumentPrivate Sub WebBrowser1_DownloadComplete()
    Set objDoc = WebBrowser1.Document
End SubPrivate Function objDoc_oncontextmenu() As Boolean   '这个是鼠标 右键 点链接时,获取该链接 的URL
    objDoc_oncontextmenu = True
    Msgbox objDoc.activeElement.href End Function''''鼠标经过链接,去获取,估计是在onmouseover里,但具体不知道怎么写了。Private Sub objDoc_onmouseover()''高手补充内容???
End Sub