Public Class Form1
    Dim ListaUrl() As String
    Private Sub cmdIr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdIr.Click
        Dim webS As Byte
        'obtenemos en la variable webS el tab seleccionado
        webS = TabControl1.SelectedIndex
        'depende el tab seleccionado es donde recargara la url puesta
        Select Case webS
            Case 0
                'si esta seleccionado el tab 1
                Web1.Navigate(Trim(txtUrl.Text))
                'actualiza en el listbox (el index se obtiene desde el tab seleccionado)
                listUrl.Items.Item(webS) = Trim(txtUrl.Text)
            Case 1
                'si esta seleccionado el tab 2
                Web2.Navigate(Trim(txtUrl.Text))
                listUrl.Items.Item(webS) = Trim(txtUrl.Text)
            Case 2
                'si esta seleccionado el tab 3
                Web3.Navigate(Trim(txtUrl.Text))
                listUrl.Items.Item(webS) = Trim(txtUrl.Text)
        End Select
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        listUrl.Items.Clear()
        ReDim Preserve ListaUrl(3) 'redimensionamos, aca depende la cantidaad de tabs, yo uso 3 como ejemplo
        'tambien se podria declarar junto con la variable Dim ListaUrl(0 to 2) como gustes.
        'cargamos el listbox con los items para solo edditarlos luego al recargar las paginas
        listUrl.Items.Add("( Pagina  1 )")
        listUrl.Items.Add("( Pagina  2 )")
        listUrl.Items.Add("( Pagina  3 )")
    End Sub
    Private Sub TabControl1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.Click
        If listUrl.Items.Count = 0 Then Exit Sub 'sino hay elementos salimos
        txtUrl.Text = listUrl.Items.Item(TabControl1.SelectedIndex)
    End Sub
End Class

Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim Arrastre As Boolean
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim imagen As Image = Bitmap.FromFile("C:\url.jpg")
        Me.BackgroundImage = imagen
        Me.Height = imagen.Height
        Me.Width = imagen.Width
        Dim mibitmap As Bitmap = CType(imagen, Bitmap)
        Me.Region = ObtenerRegionDelBitmap(mibitmap, mibitmap.GetPixel(0, 0))
    End Sub
    Private Function ObtenerRegionDelBitmap(ByVal MiImagen As Bitmap, ByVal ColorTransparente As Color) As Region
        Dim RegionLocal As Region
        If MiImagen Is Nothing Then Return RegionLocal
        Dim ColorDeFondo As Color = ColorTransparente
        Dim Largo As Integer = MiImagen.Height - 1
        Dim Ancho As Integer = MiImagen.Width
        Dim Fila As Integer
        Dim Columna As Integer
        RegionLocal = New Region(New Rectangle(0, 0, 0, 0))
        For Fila = 0 To Largo
            Dim ColumnaComienzo As Integer = -1
            Dim ColumnaFin As Integer = -1
            For Columna = 0 To Ancho
                If Columna = Ancho Then
                    If ColumnaComienzo <> -1 Then
                        ColumnaFin = Columna
                        Dim regUnion As New Region(New Rectangle(ColumnaComienzo, Fila, ColumnaFin - ColumnaComienzo, 1))
                        RegionLocal.Union(regUnion)
                        regUnion = Nothing
                    End If
                Else
                    If Not MiImagen.GetPixel(Columna, Fila).Equals(ColorDeFondo) Then
                        If ColumnaComienzo = -1 Then ColumnaComienzo = Columna
                    ElseIf MiImagen.GetPixel(Columna, Fila).Equals(ColorDeFondo) Then
                        If ColumnaComienzo <> -1 Then
                            ColumnaFin = Columna
                            Dim regUnion As New Region(New Rectangle(ColumnaComienzo, Fila, ColumnaFin - ColumnaComienzo, 1))
                            RegionLocal.Union(regUnion)
                            regUnion = Nothing
                            ColumnaComienzo = -1
                            ColumnaFin = -1
                        End If
                    End If
                End If
            Next
        Next
        Return RegionLocal
    End Function
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Arrastre = True
    End Sub
    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        Arrastre = False
    End Sub
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        If Arrastre Then Me.Location = Me.PointToScreen(New Point(e.X, e.Y))
    End Sub
End Class

 Dim imagen As Image = Bitmap.FromFile("C:\url.jpg")

       Form2.Show()
        Me.Close()

BackGroundImage

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

BorderStyle = 0

Me.Picture = App.Path & "\nombrefoto.Jpg"