Membuat Browser Menggunakan VB

Pertama kita buat seperti gambar di atas

lalu masukkan kode berikut..

Untuk Button Back--------------------------------------------------------------------------------------- 
Private Sub back_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub


Untuk Button Go---------------------------------------------------------------------------------------
Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
End Sub


Untuk Button Exit-----------------------------------------------------------------------------------------
Private Sub exit_Click()
Unload Me
End Sub


Untuk Button Forward------------------------------------------------------------------------------------
Private Sub forward_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Untuk Button Home---------------------------------------------------------------------------------------
Private Sub home_Click()
On Error Resume Next
WebBrowser1.GoHome
End Sub


 Kode untuk webbrowser-----------------------------------------------------------------------------------
Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
If Progress = -1 Then ProgressBar1.Value = 100
Label1.Caption = "Done"
ProgressBar1.Visible = False
If Progress > 0 And ProgressMax > 0 Then
ProgressBar1.Visible = True
Image1.Visible = False
ProgressBar1.Value = Progress * 100 / ProgressMax
Label1.Caption = "Loading... " & Int(Progress * 100 / ProgressMax) & "%"
End If
Exit Sub
End Sub

Untuk Button Refresh--------------------------------------------------------------------------------------
Private Sub refresh_Click()
On Error Resume Next
WebBrowser1.refresh
End Sub