Cara Membuat Web Browsing Sendiri

  Nah kali ini saya akan memberi tau Rahasia membuat Web Browsing Sendiri . Ikuti perintah yang ada di bawah dan jalankan .
Untuk pertama-tama siapkan
   -Microsoft Visual Basic 6
   -Rokok 1 Bungkus

1.Awal-awal buka Microsoft Visual Basic 6 nya

klik gambar di atas agar lebih jelas

2.Lalu buka komponen berikut :

   -5 Command Buton

   -1 Text Box

   -1 Label

   -1 Webbrowser

   -1 Proggress Bar

3.Dan tata komponen berikut seperti ini :

klik gambar di atas agar lebih jelas 

4.Cara nya :
   *CommandButton Captionnya anda ganti dengan Back, Forward, Refresh, Stop dan Go
   *Label Captionnya saya ganti Done
   *TextBox Text kalau bisa Kosong aja.

5.Sekarang Masukkan kode kode berikut, caranya doble klik pada tool / tombol yang sudah kita buat.

 - Back
On Error Resume Next
WebBrowser1.GoBack

  - Forward
On Error Resume Next
WebBrowser1.GoForward

  - Refresh
On Error Resume Next
WebBrowser1.Refresh

  - Stop
On Error Resume Next
WebBrowser1.Stop

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

6.Progress Bar. Langsung Copy dan Paste Code ini pada Form Code

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

7.Resize Form. Langsung Copy dan Paste Code ini pada Form Code

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

8.Lalu coba kita lihat hasil kita dengan pencet F5 
Jika eror silahkan di cek kembali ,atau komentar di bawah .

jika berhasil ,hasil nya akan seperti ini

klik gambar di atas agar lebih jelas

9.Jika sudah tidak eror Klik File>Make Project>Save