VB6打开网页的问题~~~~~~求助

Question

用IE打开网页，我现在写的代码是Private Sub Command1_Click()
   Dim Browser As Object
   url = "http://www.sina.com"
   Set Browser = CreateObject("InternetExplorer.Application")
   Browser.Visible = True
   Browser.Navigate (url)
End Sub
这样是没问题的，
我想让打开的页面是没有工具栏、菜单栏、地址栏，并且大小是1000*740的
这样怎么写啊？

Answer 1

类似这样:
     Browser.Navigate url
     Browser.ToolBar = 0
     Browser.StatusBar = 0
     Browser.Width = 1000
     Browser.Height = 740

Answer 2

先声明：  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long然后在单击事件中
ShellExecute Me.hwnd, vbNullString, "http://www.darkst.com", vbNullString, vbNullString, 1

Answer 3

与其它窗口一样,使用api设置,setwindowlong(Browser.hwnd,gwl_style,getwindowlong(Browser.hwnd,gwl_style) and not ws_maximizebox)