Cara membuat Web Browser dengan Visual Basic 6

Sore gan.,
sore ini saya akan kasih tutorial mengenai cara membuat web browser dengan vb6.,
trick ini sangat bagus buat agan yg pengen sekali membuat sebuah program dengan vb6.,
Tapi di hari ini saya akan mempostingan cara agar kita bisa membuat web browser simple dengan Vb6., tapi jangan berharap jika ini akan berhasil seperti web browser lainnya.,soalnya itu sulit gan., tapi kalau kalian hebat ya bisa lah.,

oke lagsung saja ya gan.,


1.Buka visual basic 6 , terus pilih Standard.exe
2.Klik kanan pada toolbox (ctrl+t) kemudian buka components.
3.Next , Centang Microsoft html object library, Microsoft internet controls, Microsoft Windows common Controls 5.0 atau 6.0 sama saja.
4.Buat 1 Label , 5 Command Button , 1 Web Browser.
Kalau menurut saya buat design nya seperti yg saya buat di gambar bawah ini...

Nah yg 5 Command Button itu saya ganti dengan Forward , Back , Refresh , Home , dan GO.
oke next , sekarang kita akan memasukkan script agar supaya berjalan dengan benar.tapi untuk menaruh script nya kalian tinggal klik 2 kali saja entah itu command button atau di web browser sama saja.Script nya sudah tersedia di bawah ini.

1.Forward

On Error Resume Next
WebBrowser1.GoForward

2.Back

On Error Resume Next
WebBrowser1.GoBack

3.Refresh

On Error Resume Next
WebBrowser1.Refresh

4.Home

On Error Resume Next
WebBrowser1.GoHome

5.GO

On Error Resume Next
WebBrowser1.Navigate (Text1.Text)

Untuk Web Browser scriptnya di bawah ini...

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

Note : Semua script di atas itu kalian harus taruh di antara "Private Sub Command5_Click()" dan "End Sub"., oo iya hampir lupa satu lagi nih., yang web browser script nya kalian taruh di antara "Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)" dan "End Sub"

Oke udah paham kan gan? ya kalau belum paham tinggal kan pertanyaan kalian di komentar saja.
Tapi kalau sudah saya mau pamit dulu ya gan., soalnya net nya dah mau tutup.

Sekian Terima Kasih.