我欲用VB做一个IE内核的浏缆器,请问哪里有教程或者哪位高手提供原码感激不尽!

Question

一个简单的IE，请勿笑话。
Option ExplicitPublic StartingAddress As String
Dim flag As BooleanPrivate Sub Form_Load()
    On Error Resume Next
    Me.Show
    Toolbar1.Refresh
    WebBrowser1.Top = CoolBar1.Height + 20
End SubPrivate Sub Form_Resize()
CoolBar1.Width = Me.ScaleWidth
WebBrowser1.Width = Me.ScaleWidth
WebBrowser1.Top = CoolBar1.Height + 20
WebBrowser1.Height = Me.ScaleHeight - CoolBar1.Height - StatusBar1.Height - 40End SubPrivate Sub webbrowser1_DownloadComplete()
    On Error Resume Next
    Me.Caption = WebBrowser1.LocationName
    MousePointer = 0
End SubPrivate Sub webbrowser1_NavigateComplete(ByVal URL As String)
Dim i As Integer
Dim bFound As Boolean
Me.Caption = WebBrowser1.LocationName
For i = 0 To Combo1.ListCount - 1
    If Combo1.List(i) = WebBrowser1.LocationURL Then
        bFound = True
        Exit For
    End If
Next i
flag = True
If bFound Then
    Combo1.RemoveItem i
End If
Combo1.AddItem WebBrowser1.LocationURL, 0
Combo1.ListIndex = 0
MousePointer = 0
WebBrowser1.Navigate Combo1.Text
StatusBar1.Panels(1).Text = "当前页面" + Combo1.Text
flag = False
End SubPrivate Sub combo1_Click()
    If flag Then Exit Sub
    Timer1.Enabled = True
    MousePointer = 11
    StatusBar1.Panels(1).Text = "正在连接" + Combo1.Text + "．．．．．．"
    WebBrowser1.Navigate Combo1.Text
End SubPrivate Sub combo1_KeyPress(KeyAscii As Integer)
    On Error Resume Next
    If KeyAscii = vbKeyReturn Then
        combo1_Click
    End If
End SubPrivate Sub Timer1_Timer()If WebBrowser1.Busy = False Then
    Timer1.Enabled = False
    Me.Caption = WebBrowser1.LocationName
    StatusBar1.Panels(1).Text = "完毕"
Else
    Me.Caption = "Working．．．"
End If
End SubPrivate Sub ToolBar1_ButtonClick(ByVal Button As Button)
On Error Resume Next
Timer1.Enabled = True
Select Case Button.Key
Case "exit"
    Unload Me
Case "back"
    WebBrowser1.GoBack
Case "forward"
    WebBrowser1.GoForward
Case "refresh"
    WebBrowser1.Refresh
Case "home"
    WebBrowser1.GoHome
Case "search"
    WebBrowser1.GoSearch
Case "open"
    CommonDialog1.ShowOpen
    If CommonDialog1.FileName = "" Then Exit Sub
    Combo1.Text = CommonDialog1.FileName
    combo1_Click
Case "stop"
    Timer1.Enabled = False
    MousePointer = 0
    WebBrowser1.Stop
    Me.Caption = WebBrowser1.LocationName
End Select
End Sub