Buat Vb 6 menjadi Web Browser

Halooooo,, kawan dumay semua, kali ini ane mau berbagi kepada kawan-kawan yang cantik cakep semua. Bukan berbagi duit yaah ! hehe, maksudnya berbagi ilmu dikit tentang membuat visual basic 6 menjadi web browser, seperti web browser lainnya tuh. Ayo ikuti langkah berikut ini :

1. Seperti biasa buat 1 form baru untuk web browsernya
2. Ctrl+T pilih Microsoft internet controls untuk menampilkan dalam toolbox komponen Webbrowser

 

3. buatlah 4 objek commandbutton, 1 label, 1 textbox, 1 image, dan 1 webbrowser

 dan desain lah web browser seperti contoh gambar dibawah ini :

4. Masukan Koding Listing pada :
~tombol BACK
     On Error Resume Next
     WebBrowser1.GoBack

~tombol FORWARD
    On Error Resume Next
    WebBrowser1.GoForward 

~tombol REFRESH
    On Error Resume Next
    WebBrowser1.Refresh

~tombol STOP
    On Error Resume Next
    WebBrowser1.stop

~tombol FORWARD
    On Error Resume Next
    WebBrowser1.navigates=text1.text

~WeBrowser dengan Event ProgressChange
   Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
    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

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

~Form Event Load
  Private Sub Form_Load()
  WebBrowser1.Navigate ("www.google.co.id")
  End Sub 

Capek juga ngetik kodingnya.. hehe..
Ok3y Kawan Dumay........ Semoga Bermanfaat.. _Salam_Berbagi_
Maaf, jika banyak salah kata....