Private Sub cmdAvanti_Click()
WBrowser1.GoForward
End Sub
Private Sub cmdHomePage_Click()
WBrowser1.GoHome
End Sub
Private Sub cmdIndietro_Click()
WBrowser1.GoBack
End Sub
Private Sub cmdNaviga_Click()
WBrowser1.Navigate txtIndirizzo.Text
cmdIndietro.Enabled = True
End Sub
Private Sub cmdRefresh_Click()
WBrowser1.Refresh
End Sub
Private Sub Timer1_Timer()
If Shape2.Width >= Shape1.Width Then
Timer1.Enabled = True
Else
Shape2.Width = Shape2.Width + 75
End If
End Sub
Private Sub WBrowser1_DownloadBegin()
Timer1.Enabled = True
End Sub
Private Sub WBrowser1_DownloadComplete()
Timer1.Enabled = False
End Sub