[بدري]

كنت اجهزه لك باسلوب اخر بحيث يكون لك الخيار ان تضعه في listbox او cpmbobox او اي قائمه

لكن سعدت بانك استطعت عمله بنفسك مع افاده الاخرين

Public Shared Function GetPosts(wb As WebBrowser) As Array
    Dim txt = wb.Document.GetElementsByTagName("HTML").Item(0).OuterHtml
    Dim lst As New List(Of String)
    For Each f As Match In Regex.Matches(txt, "href=""\/groups\/(\d+).+?refid=\d+"">+?(.*?)<\/a>", RegexOptions.Compiled + RegexOptions.IgnoreCase)
        lst.Add(f.Groups(1).Value)
    Next
    Return lst.ToArray
End Function


وفي المشروع
ListBox1.Items.AddRange(Git_groups_facebook.Class1.GetPosts(WebBrowser1))