Private Sub Command1_Click()
WebBrowser1.ExecWB 6, 1
End Sub
Private Sub Command2_Click()
WebBrowser1.Navigate2 "http://www.google.com"
End Sub
Private Sub Command3_Click()
'WebBrowser1.Navigate "about:blank"
WebBrowser1.Document.open
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln ""
WebBrowser1.Document.writeln "444"
WebBrowser1.Document.writeln "444ttt"
WebBrowser1.Document.Close
End Sub
Private Sub Command4_Click()
Dim wb As New WebBrowser_V1
wb.Navigate "about:blank"
wb.Document.open
wb.Document.writeln ""
wb.Document.writeln ""
wb.Document.writeln ""
wb.Document.writeln ""
wb.Document.writeln "444"
wb.Document.writeln "444ttt"
wb.Document.Close
wb.ExecWB 4, 1
End Sub