Private Sub Form_Load()

    ' 非表示にするとうまくいきません
    WebBrowser1.Left = Me.Width + 100

End Sub

Private Sub Command1_Click()

    WebBrowser1.Navigate ( _
    "http://download.microsoft.com/download/" & _
    "vb40ent/sample37/1/w9xnt4/en-us/vbinet.exe")

    ' 直接 API で行なう場合のサンプル --> vbinet.exe
    
End Sub

Private Sub WebBrowser1_DocumentComplete( _
 ByVal pDisp As Object, URL As Variant)

    ' Multiline
    Text1.Text = _
    WebBrowser1.Document.All.Tags("BODY")(0).InnerHTML

    ' 実際実行してみて表示される結果を元にアプリのコントロールを行います

End Sub