*** paste into webfrm.frm in notepad after this line *** VERSION 5.00 Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL" Begin VB.Form Webfrm BackColor = &H00000000& BorderStyle = 3 'Fixed Dialog Caption = "Web Browser" ClientHeight = 5295 ClientLeft = 45 ClientTop = 330 ClientWidth = 7455 BeginProperty Font Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 5295 ScaleWidth = 7455 ShowInTaskbar = 0 'False StartUpPosition = 3 'Windows Default Begin VB.ListBox lstFavs Height = 255 Left = 3960 TabIndex = 11 Top = 480 Visible = 0 'False Width = 1335 End Begin VB.CommandButton cmdAdd BackColor = &H80000005& Caption = "Add to Favorites" Height = 255 Left = 6000 Style = 1 'Graphical TabIndex = 10 Top = 840 Width = 1335 End Begin VB.CommandButton cmdFav BackColor = &H80000005& Caption = "Favorite" Height = 255 Left = 4320 Style = 1 'Graphical TabIndex = 9 Top = 120 Width = 735 End Begin VB.CommandButton cmdSearch BackColor = &H80000005& Caption = "Search" Height = 255 Left = 5160 Style = 1 'Graphical TabIndex = 8 Top = 120 Width = 735 End Begin VB.CommandButton cmdForward BackColor = &H80000005& Caption = "Forward" Height = 255 Left = 960 Style = 1 'Graphical TabIndex = 7 Top = 120 Width = 735 End Begin VB.CommandButton cmdHome BackColor = &H80000005& Caption = "Home" Height = 255 Left = 3480 Style = 1 'Graphical TabIndex = 6 Top = 120 Width = 735 End Begin VB.CommandButton cmdReload BackColor = &H80000005& Caption = "Reload" Height = 255 Left = 2640 Style = 1 'Graphical TabIndex = 5 Top = 120 Width = 735 End Begin VB.CommandButton cmdStop BackColor = &H80000005& Caption = "Stop" Height = 255 Left = 1800 Style = 1 'Graphical TabIndex = 4 Top = 120 Width = 735 End Begin VB.CommandButton cmdBack BackColor = &H80000005& Caption = "Back" Height = 255 Left = 120 Style = 1 'Graphical TabIndex = 3 Top = 120 Width = 735 End Begin VB.ComboBox txtUrl Height = 315 Left = 720 Style = 1 'Simple Combo TabIndex = 2 Text = "C:\" Top = 840 Width = 5175 End Begin SHDocVwCtl.WebBrowser WebBrowser1 Height = 3975 Left = 120 TabIndex = 0 Top = 1200 Width = 7215 ExtentX = 12726 ExtentY = 7011 ViewMode = 1 Offline = 0 Silent = 0 RegisterAsBrowser= 0 RegisterAsDropTarget= 1 AutoArrange = -1 'True NoClientEdge = 0 'False AlignLeft = 0 'False ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "" End Begin VB.Label Label1 BackColor = &H00000000& Caption = "Go To:" ForeColor = &H80000005& Height = 255 Left = 120 TabIndex = 1 Top = 840 Width = 615 End End Attribute VB_Name = "Webfrm" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim FN As Integer Private Sub cmdAdd_Click() FN = FreeFile Open "c:\favs.txt" For Output As FN Print #FN, txtUrl.Text & Chr(13) Close #FN End Sub Private Sub cmdBack_Click() On Error Resume Next WebBrowser1.GoBack End Sub Private Sub cmdFav_Click() On Error Resume Next FN = FreeFile Open "c:\favs.txt" For Input As FN lstFavs.Visible = True Do Until EOF(FN) Line Input #FN, NextLine$ lstFavs.AddItem NextLine$ Loop Close #FN End Sub Private Sub cmdForward_Click() On Error Resume Next WebBrowser1.GoForward End Sub Private Sub cmdHome_Click() WebBrowser1.GoHome End Sub Private Sub cmdReload_Click() WebBrowser1.Refresh End Sub Private Sub cmdSearch_Click() WebBrowser1.GoSearch End Sub Private Sub cmdStop_Click() WebBrowser1.Stop End Sub Private Sub Form_Load() URL$ = "c:\" WebBrowser1.Navigate URL$ End Sub Private Sub lstFavs_Click() txtUrl.Text = lstFavs.List(lstFavs.ListIndex) txtUrl_KeyPress 13 lstFavs.Visible = False Close #FN End Sub Private Sub txtUrl_KeyPress(KeyAscii As Integer) On Error Resume Next If KeyAscii = 13 Then URL$ = txtUrl.Text WebBrowser1.Navigate URL$ End If End Sub