Cara Membuat Browser Dengan VB 6.0

Buka VB 6.0 . Terus pilih Standard EXE Lalu tekan Ctrl + T,  Kemudian Centang Microsoft Html object library, Microsoft Internet Controls, Microsoft Windows Common Controls 5.0 atau 6.0 sama saja.Lalu masukkan komponen berikut ke form nya. 5 command, 1 Text Box, 1 Label, 1 WebBrowser, Prongres Bar. Saya sarankan sunsunannya seperti gambar dibawah ini :

 

Sekarang ubah caption command button menjadi Back, Forward, Reload, Stop, GO. lalu ubah caption label menjadi " done ". Sedangkan Text box text nya biarkan kosong.
Sekarang masukkan code berikut ke dalam masing masing command button dengan cara Klik 2X 

- Pada Back
On Error Resume Next
WebBrowser1.GoBack   

- Pada Forward
On Error Resume Next
WebBrowser1.GoForward
- Pada Reload
On Error Resume Next
WebBrowser1.Refresh

- Pada Stop
On Error Resume Next
WebBrowser1.Stop

- Pada GO
On Error Resume Next
WebBrowser1.Navigate = Text1.Text

Progress Bar. Langsung Copy dan paste pada form yang dibuat.

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

Sekarang code biar ketika di besarkan (Maximize) ukuran webbrowser ikut menjadi besar sesuai dengan ukuran form. Langsung saja Copy Code berikut pada Form tadi

Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub 

Untuk menjadikan suatu situs menjadi halaman awal pada webbrowser codenya adalah (tidak mau tidak apa-apa)

Private Sub Form_Load()
WebBrowser1.Navigate ("www.google.co.id")
End Sub

Sekarang tekan F5.

Selamat Mencoba