Imports System
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
On Error Resume Next
WebBrowser1.GoForward()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
On Error Resume Next
WebBrowser1.GoBack()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
WebBrowser1.Navigate("http://www.google.it")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
On Error Resume Next
WebBrowser1.Refresh()
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.Stop()
End Sub
Private Sub VaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VaiToolStripMenuItem.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub IndietroToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IndietroToolStripMenuItem.Click
On Error Resume Next
WebBrowser1.GoBack()
End Sub
Private Sub AvantiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AvantiToolStripMenuItem.Click
On Error Resume Next
WebBrowser1.GoForward()
End Sub
Private Sub AggiornaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AggiornaToolStripMenuItem.Click
On Error Resume Next
WebBrowser1.Refresh()
End Sub
Private Sub InterrompiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InterrompiToolStripMenuItem.Click
WebBrowser1.Stop()
End Sub
Private Sub BugReportToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BugReportToolStripMenuItem.Click
Process.Start("http://www.pierotofy.it/pages/conctat/writeus.php?mail=citynova@gmail.com")
End Sub
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
AboutBox1.Show()
End Sub
Private Sub EsciToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem1.Click
End
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim Form2 As New Form2
Form2.Show()
End Sub
Private Sub EsciToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EsciToolStripMenuItem.Click
Dim Form2 As New Form2
Form2.Show()
End Sub
End Class