<!---hazir-kod.net kod başlangıc--->
Public Class Form1
Dim anasayfa = "http://www.vgaeml.k12.tr"
Dim girilenadres = (TextBox.Text)
Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Dim y1, y2 As Integer
y1 = girilenadres.indexof("www.mynet.com", 0, girilenadres.length)
y2 = girilenadres.indexof("www.google.com", 0, girilenadres.lenght)
If (RadioButton2.Checked) Then
If y1 <> -1 Or y2 <> -1 Then
MsgBox("bu site açılamaz")


End If

End If

ToolStripProgressBar1.Value = 0
Timer1.Start()
WebBrowser1.Navigate(ToolStripTextBox1.Text)
TextBox.items.add(TextBox.Text)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ToolStripStatusLabel1.Text = "Form Yüklendi"
Timer1.Stop()
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ToolStripProgressBar1.Value = ToolStripProgressBar1.Value + 10
ToolStripStatusLabel1.Text = ToolStripTextBox1.Text + " Sayfa yükleniyor"
If ToolStripProgressBar1.Value = 100 Then
ToolStripProgressBar1.Value = 0
ToolStripProgressBar1.Visible = False


End If
End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Timer1.Stop()
ToolStripStatusLabel1.Text = ToolStripTextBox1.Text + " Sayfa yüklendi"

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.GoHome()



End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.GoForward()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.GoBack()

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Stop()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Refresh()

End Sub

Private Sub ToolStripProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripProgressBar1.Click

End Sub
End Class

<!---hazir-kod.net kod bitişi--->