DOCUMENT:Q162719  28-MAR-1997  [vbwin]
TITLE   :HOWTO: Use the WebBrowser Control from Visual Basic 5.0
PRODUCT :Microsoft Visual Basic for Windows
PROD/VER:5.0
OPER/SYS:WINDOWS
KEYWORDS:VBKBWeb kbhowto

======================================================================
---------------------------------------------------------------------
The information in this article applies to:

 - Control Creation and Enterprise Editions of Microsoft Visual Basic
   for Windows, version 5.0
---------------------------------------------------------------------

SUMMARY
=======

Microsoft Internet Explorer 3.0 includes a custom ActiveX control called
"WebBrowser." When you use WebBrowser in combination with Microsoft Visual
Basic 5.0, you can design powerful custom solutions that include Internet
Web browsing features. This article illustrates how to use the WebBrowser
control within Microsoft Visual Basic 5.0.

MORE INFORMATION
================

The following example creates a mini-browser:

1. Create a new Standard .exe project in Microsoft Visual Basic 5.0. Form1
   is added automatically.

2. On the Project menu, click Components.

3. Select the Microsoft Internet Controls component. Click OK.

4. Add the following controls to Form1:

   Control           Name
   --------------    ---------
   Text Box          Text1
   Command Button    Command1
   WebBrowser        WebBrowser1

5. In Form1's code window, add the following code:

     Option Explicit

     Private Sub Command1_Click()
         If Text1.Text <> "" Then
             WebBrowser1.Navigate Text1.Text
             If WebBrowser1.Visible = False Then
                 WebBrowser1.Visible = True
             End If
         End If
     End Sub

     Private Sub Form_Load()
         Me.Width = 5325
         Me.Height = 5400
         Me.Caption = "Mini browser"
         With WebBrowser1
             .Visible = False
             .Width = 4575
             .Height = 3375
             .Top = 600
             .Left = 240
         End With
         With Text1
             .Top = 240
             .Left = 1680
             .Height = 285
             .Width = 3135
             .Text = "http://www.microsoft.com"
         End With
         With Command1
             .Top = 120
             .Left = 240
             .Height = 375
             .Width = 1215
             .Caption = "Navigate"
             .Default = True
         End With
     End Sub

6. On the File menu, click Save Project1.

7. On the Run menu, click Start.

When you click Navigate, the WebBrowser appears and automatically loads the
URL displayed in the TextBox.

NOTE: Distribution of a Microsoft Visual Basic 5.0 application that uses
the WebBrowser control requires that Microsoft Internet Explorer 3.0 (or
later) be installed on the target system prior to installation.

REFERENCES
==========

For additional information, please see the following article in the
Microsoft Knowledge Base:

   ARTICLE-ID: Q155969
   TITLE     : How To Distribute the WebBrowser Control
======================================================================
Keywords            : VBKBWeb kbhowto
Version             : 5.0
Platform            : WINDOWS
Issue type          : kbhowto
Resolution Type     : kbcode

=============================================================================

THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS
PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND.  MICROSOFT DISCLAIMS
ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES
OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.  IN NO
EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR
ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL,
CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF
MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE
POSSIBILITY OF SUCH DAMAGES.  SOME STATES DO NOT ALLOW THE EXCLUSION
OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES
SO THE FOREGOING LIMITATION MAY NOT APPLY.

Copyright Microsoft Corporation 1997.