怎么用VB制作一个浏览器啊

这里是简单的代码，你要做比较完整的浏览器自己可以添加些功能
Option Explicit
Dim int_i As Integer '当前页面在历史中的个数
Dim intSum As Integer '总的浏览过的页面数

Private Sub Command1_Click()
'链接网页
Me.WebBrowser1.Navigate (Me.Text1.Text) '这里连接的网站地址是文本框输入的地址,要专门访问你的网页将这一句放入你的窗体装载事件里面,并先设置me.text1.text="这里填写要专门访问的网页"
intSum = intSum + 1
int_i = intSum
Me.Command3.Enabled = False
If intSum > 1 Then
Me.Command2.Enabled = True
End If
End Sub

Private Sub Command2_Click()
Me.WebBrowser1.GoBack
int_i = int_i - 1
Me.Command3.Enabled = True
If int_i = 1 Then
Me.Command2.Enabled = False
End If
End Sub

Private Sub Command3_Click()
Me.WebBrowser1.GoForward
int_i = int_i + 1
Me.Command2.Enabled = True
If int_i = intSum Then
Me.Command3.Enabled = False
End If
End Sub

Private Sub Command4_Click()
Me.WebBrowser1.St