VB的WebBrowser如何在任意位置插入html代码？

一、在窗体内加入控件Webbrowser,command1控件,然后复制下面代码：

Private Sub Form_Load()
WebBrowser1.Navigate "www.baidu.com"
End Sub

Private Sub Command1_Click()
Dim o, s As String
Set o = Webbrowser1.Document.selection.createRange
If (Not o Is Nothing) Then
s = InputBox("请输入HTML代码：", "插入代码")
s = o.htmlText & s
o.pasteHTML s
Set o = Nothing
End If
End Sub

二、F5运行，等网页装入完毕，在需要插入代码的地方用鼠标选择作记号；
三、点击Command1按钮，根据提示插入HTML代码，即可实现上述目标。

Private Sub Command1_Click()
Set newrow = WB.Document.getElementById("tb1").insertrow
Set newcol = newrow.insertCell
newcol.innertext = "现在时间是：" & Time()
End Sub
Private Sub Form_Load()
WB.Navigate App.Path & "\1.htm"
End Sub

你设个首页， 和程序安装时，调用这个页就可以了