[VB.NET] كيف تطبيق مجموعة اكواد في نفس الثانية

كود :
   Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        WebBrowser1.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser2.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser3.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser4.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser5.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser6.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser7.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser8.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser9.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser10.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser11.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser12.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser13.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser14.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser15.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser16.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser17.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser18.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser19.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser20.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser21.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser22.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser23.Document.GetElementById("btn_ok").InvokeMember("click")

        WebBrowser24.Document.GetElementById("btn_ok").InvokeMember("click")



    End Sub