谁能给个vb的IE浏览器啊？有的能把源码发我吗？QQ249160129

Public WithEvents m_oWbSink As SHDocVwCtl.InternetExplorer
Dim flag As String
Dim flag1 As String
Dim flag2 As String
Dim text As String
Dim str As String
Dim myurl As String
Dim download As String
Dim F As Form
Dim siteno As Integer
Dim mykeypressed As String
Private Sub cmdBack_Click()
On Error Resume Next
WebBrowser1.GoBack
sitelist.text = WebBrowser1.LocationURL
End Sub
Private Sub cmdback_MouseDown(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdback.SpecialEffect = fmSpecialEffectSunken
End Sub
Private Sub cmdback_MouseMove(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdback.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub cmdback_MouseUp(button As Integer, Shift As Integer, X As Single, Y As Single)
cmdback.SpecialEffect = fmSpecialEffectRaised
End Sub
Private Sub cmdbookmark_Click()<