'Option Explicit
'
'------------------------------------------------------------------------------
' 
' InternetExplorerのコントロール
' 主にイントラネット等で、配布して利用
' 
'------------------------------------------------------------------------------
Dim oie

'
'------------------------------------------------------------------------------
' 
' InternetExplorerのツールバーやステータスバーのコントロール
' True：表示、False：非表示
' 
'------------------------------------------------------------------------------
Set oie = CreateObject("InternetExplorer.application")

oie.Visible     = True                              ' ブラウザ
oie.Toolbar     = False                             ' ツールバー
oie.Menubar     = False                             ' メニューバー(Toolbar:True時のみ有効)
oie.Statusbar   = False                             ' ステータスバー

'
'------------------------------------------------------------------------------
' InternetExplorerの表示位置指定
'------------------------------------------------------------------------------
oie.Top         = 100                               ' Ｘ座標
oie.Left        = 10                                ' Ｙ座標

'
'------------------------------------------------------------------------------
' InternetExplorerのサイズ指定
'------------------------------------------------------------------------------
oie.width       = 800                               ' Ｘ座標
oie.Height      = 600                               ' Ｙ座標

'
'------------------------------------------------------------------------------
' InternetExplorerのリサイズ指定
' True：変更可、False：変更不可
'------------------------------------------------------------------------------
oie.resizable   = True                              ' 

'
'------------------------------------------------------------------------------
' InternetExplorerを開く
'------------------------------------------------------------------------------
oie.Navigate "http://www.yasch.com/VBScript/"       ' 開きたいURL