主题：[求助]取网页DIV标签下面DIV的内容

Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://www.cinic.org.cn/zgzz/xw/408320.html")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop

Dim elems As object = web.Document.GetElementById("bd").GetElementsByTagName("div")
For Each elem As object In elems
    If elem.getattribute("className") = "dc-ccm1" Then
        Dim divs As object = elem.GetElementsByTagName("div")
        For Each div As object In divs
            output.show(div.innertext)
        Next
    End If   
Next