Private Sub Command3_Click()
Dim element As HTMLHtmlElement
 
 
For Each element In WebBrowser1.Document.getElementsByTagName("ul")
      If element.getAttribute("role") = "menu" Then
            If element.parentElement.parentElement.id = "div_sel_118" Then
            Else
                For y = 1 To element.children.length - 1
                    element.children.Item(y).children.Item(0).Click
                Next y
            End If
      End If
Next
End Sub