Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        LinkLabel1.Links.Add(0, 9, "http://www.bilgeadam.com")

        Me.AcceptButton = btngit

    End Sub

    Private Sub btngit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngit.Click

        'Girilen baglantinin basinda http ifadesi

        'bulunmuyorsa bu ifade eklenir

        If Not txtadres.Text.StartsWith("http://") Then

            txtadres.Text = txtadres.Text.Insert(0, "http://")

        End If

        'Tabcontrol nesnesinde sayfa yoksa yada yeni sayfa

        'secenegi secilmisse, adres yeni sayfada gosterilir.

        If rbyenisayfa.Checked OrElse TabControl1.TabPages.Count = 0 Then

            yenisayfa(txtadres.Text)

        Else

            aynisayfa(txtadres.Text)

        End If

    End Sub

    Sub yenisayfa(ByVal link As String)

        'dinamik kontrolleri olusturuyoruz

        Dim sayfa As New TabPage(link)

        Dim tarayici As New AxSHDocVw.AxWebBrowser

        tarayici.Dock = DockStyle.Fill

        'tarayici tabpage kontrolune eklenir

        sayfa.Controls.Add(tarayici)

        'olusturulan sayfa tabcontrol nesnesine eklenir

        TabControl1.TabPages.Add(sayfa)

        'yeni acilan sayfa secili olarak gosterilir

        TabControl1.SelectedTab = sayfa

        'tarayıcı, verilen baglantıyı goruntuler

        tarayici.Navigate(link)

    End Sub

  Sub aynisayfa(ByVal link As String)

        'internet sitesi, secilen sayfada gosterilir

        Dim sayfa As TabPage

        sayfa = TabControl1.SelectedTab

        Dim tarayici As AxSHDocVw.AxWebBrowser

        'tarayici, sayfanin kontrollerini icinde bulundurur

        'sayfada baska kontrol bulunmadigi icin, ilk

        'kontrol tarayicidir

        tarayici = sayfa.Controls(0)

        sayfa.Text = link

        tarayici.Navigate(link)

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked

        yenisayfa(e.Link.LinkData)

    End Sub

    Private Sub btnsayfayikapat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsayfayikapat.Click

        Dim sayfa As TabPage

        sayfa = TabControl1.SelectedTab

        If Not sayfa Is Nothing Then

            sayfa.Dispose()

        End If

    End Sub

End Class