ایجاد چند کنترل در زمان اجرا با دستور For

[viator]

سلام به همه دوستان گرامی
من می خوام که در برنامه در حال اجرا چند کنترل WebBrowser از طریق دستور زیر ایجا کنم...
کد زیر رو نوشتم اما هیچ عکس العملی نشون نمیده نه خطایی نه چیزی و دستور رو هم انجام نمیده...
اصلا برنامه وقتی به این قسمت میرسه دیگه هیچ کاری انجام نمیده...
ممنون می شم بنده رو راهنمای کنید...
با تشکر

For ID As Byte = 1 To 10
Dim WebBrowser(ID) As WebBrowser
With WebBrowser(ID)
.ScriptErrorsSuppressed = True
.Width = 100
.Height = 100
.Location = New Point(493 + 1, 108 + 1)
WebBrowser(ID).Navigate("http://www.google.com")
End With
Me.Controls.Add(WebBrowser(ID))
Next ID

[viator]

واقعا کسی نمی دونه؟
خواهشا کمک بفرمایید...

[viator]

دوستان محترم خودم پیداش کردم
اینم کدش:
Dim x As Integer = 0
Dim y As Integer = 0

For ID As Byte = 1 To 45
x += 22
y = 300
Dim WebBrowser As New WebBrowser()
WebBrowser.Name = "WebBrowser" + ID.ToString()
WebBrowser.Location = New Point(x, y)
WebBrowser.ScriptErrorsSuppressed = True
WebBrowser.Width = 20
WebBrowser.Height = 20

WebBrowser.Navigate("http://www.google.com")

Me.Controls.Add(WebBrowser)

Next ID