VB获取网页下文字的链接地址

题目:
如何获取网页下文字的链接地址
窗口有WebBrowser1，和一个Text1
现在
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
打开窗体显示百度的首页，要求滑动鼠标到“新闻”时
Text1里显示http://news.baidu.com/
滑动到“帖吧”时
Text1里显示清空text1,然后显示http://tieba.baidu.com/
等
要求自动判断，因为网页是不确定的不一定非是百度，就是
如果我鼠标滑动到网页下的文字或图片并且这段文字或图片有链接地址的话，那么text1里将清空上一条的地址，显示当前文字下或图片的链接地址。
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.baidu.com"
End Sub
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)
Text1.Text = Text
End Sub

相信许多朋友用得上,不用怀疑代码的可行性,这两句代码我都用了8年了