Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For k As Int32 = 0 To 22
Browser(k) = New WebBrowser
Pages(k) = New TabPage
TabControl1.TabPages.Add(Pages(k))
With Browser(k)
.Parent = Pages(k)
.Anchor = AnchorStyles.Bottom
.Anchor = AnchorStyles.Top
.Anchor = AnchorStyles.Left
.Anchor = AnchorStyles.Right
.Width = Pages(i).Width
.Height = Pages(i).Height
.Navigate(Home)
AddHandler .ProgressChanged, AddressOf Procedura
End With
Home = ConfigForm.ListView1.Items.Item(0).SubItems.Item(1).Text
Next
End Sub
Private Sub Procedura(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
Dim o As WebBrowser = sender
MsgBox(o.Name)
End Sub