Private Sub Form_Load()
Me.Width = Screen.Width - 50
Me.Height = Screen.Height - 36
Combo1.AddItem "http://www.
Combo1.ListIndex = 0
web.AddressBar = True
web.MenuBar = True
web.Navigate "about: blank"
Form1.Caption = web.LocationName & "-" & web.LocationURL
End Sub
Private Sub Command1_Click()
web.Navigate
Combo1.Text
End Sub
其它的按钮可以自己加:
web.GoForward
web.GoSearch
web.Refresh
web.GoBack