VB Implementation of simple IE browser

'Add a webbrowse control and several buttons with a small amount of code to implement a simple IE browser (the program running interface has been uploaded to the album VB6)

 

Private sub commandateclick (index as integer)
Select case index
Case 0
TRIP: webbrowser1.stop' stop
Case 1
Webbrowser1.refresh
Case 2
Webbrowser1.gohome Homepage
Case 3
On Error goto trip 'when an error occurs, the program jumps to the trip ID
Webbrowser1.goback back
Case 4
On Error goto trip
Webbrowser1.goforward
End select
End sub

Private sub form_load ()
Webbrowser1.gohome
End sub

Private sub text=keypress (keyascii as integer)
If keyascii = 13 then', when the URL is entered, press Enter.
Webbrowser1.navigate (text1)
End if
End sub

Private sub webbrowsersponbeforenavigate2 (byval Pdisp as object, URL as variant, flags as variant, targetframename as variant, postdata as variant, headers as variant, cancel as Boolean)
Text1 = URL
End sub