浏览器

开发平台：

Visual Basic

Module1.bas：源码内容

							Attribute VB_Name = "Module1"
Option Explicit
Public Function ShellWeb(ByVal vWeb As SHDocVw.WebBrowser, _
    ByVal x&, ByVal y&, ByVal z&) As Long
If Not vWeb Is Nothing Then
    vWeb.Navigate "about:blank"
End If
MsgBox "hello world!" & vbNewLine & "This is a demo", , "Deno"
End Function

						