用VB制作的一个简单的网页浏览器Private Sub Form_Load()

Label2.Left = 0

Label2.Top = Toolbar1.Height

Combo1.Top = Toolbar1.Height

Label2.Caption = "地址: "

Label2.Height = 315

Combo1.Left = Label1.Width

Combo1.Width = Form1.Width - Label2.Width

WebBrowser1.Width = Form1.ScaleWidth

WebBrowser1.Top = Combo1.Top + 500

WebBrowser1.Height = Form1.ScaleHeight - Combo1.Height - StatusBar1.Height - 200

WebBrowser1.Left = 0

Download by http://www.codefans.net

StatusBar1.Panels(1).Width = Form1.Width / 2

StatusBar1.Panels(2).Width = Form1.Width / 4

StatusBar1.Panels(3).Width = Form1.Width / 4

StatusBar1.Panels(2).Text = "我的电脑"

StatusBar1.Panels(3).Text = Str$(Time)

On Error Resume Next

Me.Show

内详-VB produced a simple web browser