[trakktour]

السلام عليكم احبابي في الله
ممكن مساعدة في التعديل على هذا الكود
اريد اظهار كل النتائج عند البحث و ليس فقط اول 10 نتائج

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Using X As New Net.WebClient
           X.Encoding = Encoding.UTF8
           AddHandler X.DownloadDataCompleted, AddressOf search
           X.DownloadDataAsync(New Uri("https://www.bing.com/search?q=site:pastebin.com+" & TextBox1.Text))
       End Using
   End Sub
 
   Private Sub search(sender As Object, e As DownloadDataCompletedEventArgs)
       Dim RS As String = (New UTF8Encoding).GetString(e.Result)
       Dim M As MatchCollection = Regex.Matches(RS, "(https:\/\/pastebin.com\/\w+)")
       Label1.Text = "founded Links : " & M.Count
       For i = 0 To M.Count - 1
           ListBox1.Items.Add(M(i).Value & vbNewLine)
       Next
   End Sub