Facebook Bot 2

 Dim Page As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("a")
        ListBox1.Items.Clear()
        For Each Element As HtmlElement In Page
            If Element.GetAttribute("href").Contains("/groups") Then
                ListBox1.Items.Add(Element.GetAttribute("href").ToString())
            End If
        Next