___________________________________________________________________________________________________________________________________________________________________________________
Public Class AnaForm
Private Sub PictureBox1_Click(sender As Object, e As EventArgs)
Dim Menu As HtmlElementCollection = WebBrowser1.Document.All
For Each butontest As HtmlElement In Menu
If butontest.GetAttribute("classname").Contains("listItem") Then
butontest.InvokeMember("click")
End If
Next
End Sub
Private Sub WebBrowser1_DocumentCompleted_1(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Dim Menu As HtmlElementCollection = WebBrowser1.Document.All
For Each myday As HtmlElement In Menu
Next
End Sub
End Class
___________________________________________________________________________________________________________________________________________________________________________________