Cara membuat Webbrowser dengan visual basic 6

- tekan Ctrl + T
- lalu pilih :

Microsoft html object library,
Microsoft internet controls,
Microsoft Windows common Controls 5.0 atau 6.0

- lalu buat :

1 webrowser
1 progress bar
5 command/Caption:Back, Forward, Refresh, Stop dan Go.
1 textbox/text= kosong
1 label/caption= done

lalu view kode dan masukan :

Private Sub Command1_Click()
On Error Resume Next
WebBrowser1.GoBack
End Sub

Private Sub Command2_Click()
On Error Resume Next
WebBrowser1.GoForward
End Sub

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.Refresh
End Sub

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.Stop
End Sub

Private Sub Command5_Click()
On Error Resume Next
WebBrowser1.Navigate Text1.Text
End Sub

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
Private Sub Form_Resize()
On Error Resume Next
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Height = Me.ScaleHeight - 1680
End Sub

Sumber