1.Create a new project, and then go to "Project" on the menu.
Click components or use the shortcut Ctrl+T
2.Find the component "Microsoft Internet Controls," check it and click "Apply" and then "Close."
3.Click the icon that was just added in the tools window, and draw a large sized window with it but big enough to add in a few buttons and textboxes. This is going to be where you view web pages through your browser.
4.Make a text box; this will be your URL bar where you type in the address of the website you want to see. (You may also create a heading or such)
5.Make four command buttons, these are going to be your Go, Back, Forward, and Refresh buttons, change the captions accordingly, and name each of them Cmdgo, Cmdback, CmdForward, and CmdRefresh. Place them in appropriate positions and now we code.
Firstly we will code the back button.
Private Sub cmdback_Click() WebBrowser1.GoBack End Sub
Then we will code the Forward button which has a similar code to the back button.
Private Sub Cmdforward_Click() WebBrowser1.GoForward End Sub
Now we give the code to the Go button. This will link to the text box as when we click the button, the URL within the text box will open up.
Private Sub cmdgo_Click() WebBrowser1.Navigate (Text1.Text) End Sub
This will refresh the page and reload it.
Private Sub cmdrefresh_Click() WebBrowser1.Refresh End Sub
Double click the form and type the WebBrowser part in. This is for the homepage (Google is my default)
Private Sub Form_Load() WebBrowser1.Navigate ("http://google.com") End Sub
This changes the text box's text into what URL that you're currently at, and the next line makes the caption of your form into the header of the URL.
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) Text1.Text = (WebBrowser1.LocationURL) Form1.Caption = (WebBrowser1.LocationName) End Sub
So now it should look like (or similar) like image attached.