home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / fastwe1a / frmmain.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-10-19  |  21.3 KB  |  662 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.DLL"
  4. Begin VB.Form frmMain 
  5.    BackColor       =   &H00000000&
  6.    BorderStyle     =   1  'Fixed Single
  7.    ClientHeight    =   4965
  8.    ClientLeft      =   3045
  9.    ClientTop       =   3330
  10.    ClientWidth     =   15270
  11.    Icon            =   "frmMain.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4965
  16.    ScaleWidth      =   15270
  17.    Begin VB.TextBox txtAddress 
  18.       BackColor       =   &H00000000&
  19.       BorderStyle     =   0  'None
  20.       BeginProperty Font 
  21.          Name            =   "Tahoma"
  22.          Size            =   12
  23.          Charset         =   0
  24.          Weight          =   400
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       ForeColor       =   &H00FFFFFF&
  30.       Height          =   285
  31.       Left            =   360
  32.       TabIndex        =   1
  33.       Top             =   0
  34.       Width           =   5055
  35.    End
  36.    Begin VB.Timer timTimer 
  37.       Interval        =   1000
  38.       Left            =   5400
  39.       Top             =   720
  40.    End
  41.    Begin SHDocVwCtl.WebBrowser webWindow 
  42.       Height          =   4695
  43.       Left            =   0
  44.       TabIndex        =   0
  45.       Top             =   645
  46.       Width           =   5400
  47.       ExtentX         =   9525
  48.       ExtentY         =   8281
  49.       ViewMode        =   0
  50.       Offline         =   0
  51.       Silent          =   0
  52.       RegisterAsBrowser=   0
  53.       RegisterAsDropTarget=   1
  54.       AutoArrange     =   0   'False
  55.       NoClientEdge    =   0   'False
  56.       AlignLeft       =   0   'False
  57.       ViewID          =   "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
  58.       Location        =   ""
  59.    End
  60.    Begin VB.Label lblWindowsUpdate 
  61.       Alignment       =   2  'Center
  62.       BackColor       =   &H00000000&
  63.       Caption         =   "WU"
  64.       BeginProperty Font 
  65.          Name            =   "Tahoma"
  66.          Size            =   12
  67.          Charset         =   0
  68.          Weight          =   700
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       ForeColor       =   &H00FFFFFF&
  74.       Height          =   285
  75.       Left            =   14640
  76.       TabIndex        =   20
  77.       ToolTipText     =   "Options"
  78.       Top             =   0
  79.       Width           =   495
  80.    End
  81.    Begin VB.Label lblOptions 
  82.       Alignment       =   2  'Center
  83.       BackColor       =   &H00000000&
  84.       Caption         =   "O"
  85.       BeginProperty Font 
  86.          Name            =   "Tahoma"
  87.          Size            =   12
  88.          Charset         =   0
  89.          Weight          =   700
  90.          Underline       =   0   'False
  91.          Italic          =   0   'False
  92.          Strikethrough   =   0   'False
  93.       EndProperty
  94.       ForeColor       =   &H00FFFFFF&
  95.       Height          =   285
  96.       Left            =   14640
  97.       TabIndex        =   19
  98.       ToolTipText     =   "Options"
  99.       Top             =   360
  100.       Width           =   495
  101.    End
  102.    Begin VB.Label lblLink1 
  103.       Alignment       =   2  'Center
  104.       BackColor       =   &H00404040&
  105.       BeginProperty Font 
  106.          Name            =   "Tahoma"
  107.          Size            =   11.25
  108.          Charset         =   0
  109.          Weight          =   400
  110.          Underline       =   0   'False
  111.          Italic          =   0   'False
  112.          Strikethrough   =   0   'False
  113.       EndProperty
  114.       ForeColor       =   &H00FFFFFF&
  115.       Height          =   285
  116.       Index           =   9
  117.       Left            =   12720
  118.       TabIndex        =   18
  119.       ToolTipText     =   "Search"
  120.       Top             =   360
  121.       Width           =   1695
  122.    End
  123.    Begin VB.Label lblLink1 
  124.       Alignment       =   2  'Center
  125.       BackColor       =   &H00404040&
  126.       BeginProperty Font 
  127.          Name            =   "Tahoma"
  128.          Size            =   11.25
  129.          Charset         =   0
  130.          Weight          =   400
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       ForeColor       =   &H00FFFFFF&
  136.       Height          =   285
  137.       Index           =   8
  138.       Left            =   10920
  139.       TabIndex        =   17
  140.       ToolTipText     =   "Search"
  141.       Top             =   360
  142.       Width           =   1695
  143.    End
  144.    Begin VB.Label lblLink1 
  145.       Alignment       =   2  'Center
  146.       BackColor       =   &H00404040&
  147.       BeginProperty Font 
  148.          Name            =   "Tahoma"
  149.          Size            =   11.25
  150.          Charset         =   0
  151.          Weight          =   400
  152.          Underline       =   0   'False
  153.          Italic          =   0   'False
  154.          Strikethrough   =   0   'False
  155.       EndProperty
  156.       ForeColor       =   &H00FFFFFF&
  157.       Height          =   285
  158.       Index           =   7
  159.       Left            =   9120
  160.       TabIndex        =   16
  161.       ToolTipText     =   "Search"
  162.       Top             =   360
  163.       Width           =   1695
  164.    End
  165.    Begin VB.Label lblLink1 
  166.       Alignment       =   2  'Center
  167.       BackColor       =   &H00404040&
  168.       BeginProperty Font 
  169.          Name            =   "Tahoma"
  170.          Size            =   11.25
  171.          Charset         =   0
  172.          Weight          =   400
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       ForeColor       =   &H00FFFFFF&
  178.       Height          =   285
  179.       Index           =   6
  180.       Left            =   7320
  181.       TabIndex        =   15
  182.       ToolTipText     =   "Search"
  183.       Top             =   360
  184.       Width           =   1695
  185.    End
  186.    Begin VB.Label lblLink1 
  187.       Alignment       =   2  'Center
  188.       BackColor       =   &H00404040&
  189.       BeginProperty Font 
  190.          Name            =   "Tahoma"
  191.          Size            =   11.25
  192.          Charset         =   0
  193.          Weight          =   400
  194.          Underline       =   0   'False
  195.          Italic          =   0   'False
  196.          Strikethrough   =   0   'False
  197.       EndProperty
  198.       ForeColor       =   &H00FFFFFF&
  199.       Height          =   285
  200.       Index           =   5
  201.       Left            =   5520
  202.       TabIndex        =   14
  203.       ToolTipText     =   "Search"
  204.       Top             =   360
  205.       Width           =   1695
  206.    End
  207.    Begin VB.Label lblLink1 
  208.       Alignment       =   2  'Center
  209.       BackColor       =   &H00404040&
  210.       BeginProperty Font 
  211.          Name            =   "Tahoma"
  212.          Size            =   11.25
  213.          Charset         =   0
  214.          Weight          =   400
  215.          Underline       =   0   'False
  216.          Italic          =   0   'False
  217.          Strikethrough   =   0   'False
  218.       EndProperty
  219.       ForeColor       =   &H00FFFFFF&
  220.       Height          =   285
  221.       Index           =   4
  222.       Left            =   12720
  223.       TabIndex        =   13
  224.       ToolTipText     =   "Search"
  225.       Top             =   0
  226.       Width           =   1695
  227.    End
  228.    Begin VB.Label lblLink1 
  229.       Alignment       =   2  'Center
  230.       BackColor       =   &H00404040&
  231.       BeginProperty Font 
  232.          Name            =   "Tahoma"
  233.          Size            =   11.25
  234.          Charset         =   0
  235.          Weight          =   400
  236.          Underline       =   0   'False
  237.          Italic          =   0   'False
  238.          Strikethrough   =   0   'False
  239.       EndProperty
  240.       ForeColor       =   &H00FFFFFF&
  241.       Height          =   285
  242.       Index           =   3
  243.       Left            =   10920
  244.       TabIndex        =   12
  245.       ToolTipText     =   "Search"
  246.       Top             =   0
  247.       Width           =   1695
  248.    End
  249.    Begin VB.Label lblLink1 
  250.       Alignment       =   2  'Center
  251.       BackColor       =   &H00404040&
  252.       BeginProperty Font 
  253.          Name            =   "Tahoma"
  254.          Size            =   11.25
  255.          Charset         =   0
  256.          Weight          =   400
  257.          Underline       =   0   'False
  258.          Italic          =   0   'False
  259.          Strikethrough   =   0   'False
  260.       EndProperty
  261.       ForeColor       =   &H00FFFFFF&
  262.       Height          =   285
  263.       Index           =   2
  264.       Left            =   9120
  265.       TabIndex        =   11
  266.       ToolTipText     =   "Search"
  267.       Top             =   0
  268.       Width           =   1695
  269.    End
  270.    Begin VB.Label lblLink1 
  271.       Alignment       =   2  'Center
  272.       BackColor       =   &H00404040&
  273.       BeginProperty Font 
  274.          Name            =   "Tahoma"
  275.          Size            =   11.25
  276.          Charset         =   0
  277.          Weight          =   400
  278.          Underline       =   0   'False
  279.          Italic          =   0   'False
  280.          Strikethrough   =   0   'False
  281.       EndProperty
  282.       ForeColor       =   &H00FFFFFF&
  283.       Height          =   285
  284.       Index           =   1
  285.       Left            =   7320
  286.       TabIndex        =   10
  287.       ToolTipText     =   "Search"
  288.       Top             =   0
  289.       Width           =   1695
  290.    End
  291.    Begin VB.Label lblLink1 
  292.       Alignment       =   2  'Center
  293.       BackColor       =   &H00404040&
  294.       BeginProperty Font 
  295.          Name            =   "Tahoma"
  296.          Size            =   11.25
  297.          Charset         =   0
  298.          Weight          =   400
  299.          Underline       =   0   'False
  300.          Italic          =   0   'False
  301.          Strikethrough   =   0   'False
  302.       EndProperty
  303.       ForeColor       =   &H00FFFFFF&
  304.       Height          =   285
  305.       Index           =   0
  306.       Left            =   5520
  307.       TabIndex        =   9
  308.       ToolTipText     =   "Search"
  309.       Top             =   0
  310.       Width           =   1695
  311.    End
  312.    Begin VB.Label lblFavorites 
  313.       Alignment       =   2  'Center
  314.       BackColor       =   &H00000000&
  315.       Caption         =   "F"
  316.       BeginProperty Font 
  317.          Name            =   "Tahoma"
  318.          Size            =   12
  319.          Charset         =   0
  320.          Weight          =   700
  321.          Underline       =   0   'False
  322.          Italic          =   0   'False
  323.          Strikethrough   =   0   'False
  324.       EndProperty
  325.       ForeColor       =   &H00FFFFFF&
  326.       Height          =   285
  327.       Left            =   2880
  328.       TabIndex        =   8
  329.       ToolTipText     =   "Enter"
  330.       Top             =   360
  331.       Width           =   495
  332.    End
  333.    Begin VB.Label lblSearch 
  334.       Alignment       =   2  'Center
  335.       BackColor       =   &H00000000&
  336.       Caption         =   "S"
  337.       BeginProperty Font 
  338.          Name            =   "Tahoma"
  339.          Size            =   12
  340.          Charset         =   0
  341.          Weight          =   700
  342.          Underline       =   0   'False
  343.          Italic          =   0   'False
  344.          Strikethrough   =   0   'False
  345.       EndProperty
  346.       ForeColor       =   &H00FFFFFF&
  347.       Height          =   285
  348.       Left            =   2400
  349.       TabIndex        =   7
  350.       ToolTipText     =   "Search"
  351.       Top             =   360
  352.       Width           =   495
  353.    End
  354.    Begin VB.Label lblStop 
  355.       Alignment       =   2  'Center
  356.       BackColor       =   &H00000000&
  357.       Caption         =   "X"
  358.       BeginProperty Font 
  359.          Name            =   "Tahoma"
  360.          Size            =   12
  361.          Charset         =   0
  362.          Weight          =   700
  363.          Underline       =   0   'False
  364.          Italic          =   0   'False
  365.          Strikethrough   =   0   'False
  366.       EndProperty
  367.       ForeColor       =   &H00FFFFFF&
  368.       Height          =   285
  369.       Left            =   1440
  370.       TabIndex        =   6
  371.       ToolTipText     =   "Stop"
  372.       Top             =   360
  373.       Width           =   495
  374.    End
  375.    Begin VB.Label lblRefresh 
  376.       Alignment       =   2  'Center
  377.       BackColor       =   &H00000000&
  378.       Caption         =   "R"
  379.       BeginProperty Font 
  380.          Name            =   "Tahoma"
  381.          Size            =   12
  382.          Charset         =   0
  383.          Weight          =   700
  384.          Underline       =   0   'False
  385.          Italic          =   0   'False
  386.          Strikethrough   =   0   'False
  387.       EndProperty
  388.       ForeColor       =   &H00FFFFFF&
  389.       Height          =   285
  390.       Left            =   960
  391.       TabIndex        =   5
  392.       ToolTipText     =   "Refresh"
  393.       Top             =   360
  394.       Width           =   495
  395.    End
  396.    Begin VB.Label lblHome 
  397.       Alignment       =   2  'Center
  398.       BackColor       =   &H00000000&
  399.       Caption         =   "H"
  400.       BeginProperty Font 
  401.          Name            =   "Tahoma"
  402.          Size            =   12
  403.          Charset         =   0
  404.          Weight          =   700
  405.          Underline       =   0   'False
  406.          Italic          =   0   'False
  407.          Strikethrough   =   0   'False
  408.       EndProperty
  409.       ForeColor       =   &H00FFFFFF&
  410.       Height          =   285
  411.       Left            =   1920
  412.       TabIndex        =   4
  413.       ToolTipText     =   "Home - Left click for Home1, Right click for Home2"
  414.       Top             =   360
  415.       Width           =   495
  416.    End
  417.    Begin VB.Label lblBack 
  418.       Alignment       =   2  'Center
  419.       BackColor       =   &H00000000&
  420.       Caption         =   "<-"
  421.       BeginProperty Font 
  422.          Name            =   "Tahoma"
  423.          Size            =   12
  424.          Charset         =   0
  425.          Weight          =   700
  426.          Underline       =   0   'False
  427.          Italic          =   0   'False
  428.          Strikethrough   =   0   'False
  429.       EndProperty
  430.       ForeColor       =   &H00FFFFFF&
  431.       Height          =   285
  432.       Left            =   0
  433.       TabIndex        =   3
  434.       ToolTipText     =   "Back"
  435.       Top             =   360
  436.       Width           =   495
  437.    End
  438.    Begin VB.Label lblForward 
  439.       Alignment       =   2  'Center
  440.       BackColor       =   &H00000000&
  441.       Caption         =   "->"
  442.       BeginProperty Font 
  443.          Name            =   "Tahoma"
  444.          Size            =   12
  445.          Charset         =   0
  446.          Weight          =   700
  447.          Underline       =   0   'False
  448.          Italic          =   0   'False
  449.          Strikethrough   =   0   'False
  450.       EndProperty
  451.       ForeColor       =   &H00FFFFFF&
  452.       Height          =   285
  453.       Left            =   480
  454.       TabIndex        =   2
  455.       ToolTipText     =   "Forward"
  456.       Top             =   360
  457.       Width           =   495
  458.    End
  459.    Begin ComctlLib.ImageList imlIcons 
  460.       Left            =   2670
  461.       Top             =   2325
  462.       _ExtentX        =   1005
  463.       _ExtentY        =   1005
  464.       BackColor       =   -2147483643
  465.       ImageWidth      =   24
  466.       ImageHeight     =   24
  467.       MaskColor       =   12632256
  468.       _Version        =   327682
  469.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  470.          NumListImages   =   6
  471.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  472.             Picture         =   "frmMain.frx":030A
  473.             Key             =   ""
  474.          EndProperty
  475.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  476.             Picture         =   "frmMain.frx":0A1C
  477.             Key             =   ""
  478.          EndProperty
  479.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  480.             Picture         =   "frmMain.frx":112E
  481.             Key             =   ""
  482.          EndProperty
  483.          BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  484.             Picture         =   "frmMain.frx":1840
  485.             Key             =   ""
  486.          EndProperty
  487.          BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  488.             Picture         =   "frmMain.frx":1F52
  489.             Key             =   ""
  490.          EndProperty
  491.          BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  492.             Picture         =   "frmMain.frx":2664
  493.             Key             =   ""
  494.          EndProperty
  495.       EndProperty
  496.    End
  497. Attribute VB_Name = "frmMain"
  498. Attribute VB_GlobalNameSpace = False
  499. Attribute VB_Creatable = False
  500. Attribute VB_PredeclaredId = True
  501. Attribute VB_Exposed = False
  502. Private Sub fFixTitleAndPath()
  503.     'display our program name in the title with the page name
  504.     'if the user is at a site
  505.     If webWindow.LocationName = "" Then
  506.         frmMain.Caption = "FastWeb 2000"
  507.     Else
  508.         frmMain.Caption = webWindow.LocationName & " | FastWeb 2000"
  509.     End If
  510. End Sub
  511. Private Sub fLoadOptions()
  512.     'load our options
  513.     Open App.Path & "\options.web" For Random As #1 Len = Len(Options)
  514.         Get #1, 1, Options
  515.     Close #1
  516. End Sub
  517. Private Sub Form_Load()
  518.     'put our program name in the title
  519.     frmMain.Caption = "FastWeb 2000"
  520.     'program is made to run in 1024x768 only, can be changed
  521.     'later of course!
  522.     frmMain.Height = 10750
  523.     frmMain.Width = 15400
  524.     frmMain.Top = 0
  525.     frmMain.Left = 0
  526.     'load our options, if none exist they will default
  527.     fLoadOptions
  528.     'go to the starting url, if none is specified dont do
  529.     'anything...we put a '-' in the startURL if they select
  530.     'nothing in the options screen
  531.     If Options.StartURL <> "-" Then
  532.         txtAddress.Text = RTrim(Options.StartURL)
  533.         webWindow.Navigate (txtAddress.Text)
  534.     End If
  535.     gLoadFavorites
  536. End Sub
  537. Private Sub Form_Resize()
  538.     'this accounts to a 2 level taskbar (thats what i have)
  539.     webWindow.Height = frmMain.ScaleHeight - 540
  540.     'fill the screen with the site
  541.     webWindow.Width = frmMain.ScaleWidth
  542. End Sub
  543. Private Sub lblBack_Click()
  544.     On Error GoTo errHandler
  545.     'go back if they have came from another site or do nothing
  546.     webWindow.GoBack
  547.     Exit Sub
  548. errHandler:
  549.     Call errHandler
  550. End Sub
  551. Private Sub lblFavorites_Click()
  552.     'load the favorites onto the screen
  553.     gRefreshFavorites
  554.     frmFav.Show 1 'show modal to avoid trouble
  555. End Sub
  556. Private Sub lblForward_Click()
  557.     On Error GoTo errHandler
  558.     'go forward to a site they were just at or do nothing
  559.     webWindow.GoForward
  560.     Exit Sub
  561. errHandler:
  562.     Call errHandler
  563. End Sub
  564. Private Sub lblHome_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  565.     On Error GoTo errHandler
  566.     'if its a left click, load home1 url
  567.     If Button = 1 Then
  568.         txtAddress.Text = RTrim(Options.Home1URL)
  569.     'otheriwse, load home2 url
  570.     Else
  571.         txtAddress.Text = RTrim(Options.Home2URL)
  572.     End If
  573.     'go to the site
  574.     webWindow.Navigate (txtAddress.Text)
  575.     Exit Sub
  576. errHandler:
  577.     Call errHandler
  578. End Sub
  579. Private Sub lblLink1_Click(Index As Integer)
  580.     On Error GoTo errHandler
  581.     'if the caption is nothing, exit
  582.     If lblLink1(Index).Caption = "" Then Exit Sub
  583.     'load this favorite
  584.     Open App.Path & "\favorites.web" For Random As #1 Len = Len(Fav)
  585.         Get #1, Index + 1, Fav
  586.     Close #1
  587.     'if it doesn't have an url set, exit
  588.     If RTrim(Fav.URL) = "" Then Exit Sub
  589.     'go to the URL
  590.     webWindow.Navigate (RTrim(Fav.URL))
  591.     Exit Sub
  592. errHandler:
  593.     'the url is damaged, corrupt or empty
  594.     MsgBox "It appears that this URL is damaged, incomplete or corrupt. Select 'F' and verify your entry.", vbOKOnly, "FastWeb 2000"
  595.     Exit Sub
  596. End Sub
  597. Private Sub lblOptions_Click()
  598.     'load the options to the screen
  599.     gRefreshOptions
  600.     frmOptions.Show 1
  601. End Sub
  602. Private Sub lblRefresh_Click()
  603.     On Error GoTo errHandler
  604.     'reload the site the user is at
  605.     webWindow.Refresh
  606.     Exit Sub
  607. errHandler:
  608.     Call errHandler
  609. End Sub
  610. Private Sub lblSearch_Click()
  611.     On Error GoTo errHandler
  612.     'don't load the search site if they are already there
  613.     If txtAddress.Text = RTrim(Options.SearchURL) Then Exit Sub
  614.     'display the site and go to it
  615.     txtAddress.Text = RTrim(Options.SearchURL)
  616.     webWindow.Navigate (txtAddress.Text)
  617.     Exit Sub
  618. errHandler:
  619.     Call errHandler
  620. End Sub
  621. Private Sub lblStop_Click()
  622.     On Error GoTo errHandler
  623.     'stop loading this site
  624.     webWindow.Stop
  625.     Exit Sub
  626. errHandler:
  627.     Call errHandler
  628. End Sub
  629. Private Sub lblWindowsUpdate_Click()
  630.     'launch the windows update site
  631.     frmMain.webWindow.Navigate ("http://windowsupdate.microsoft.com/default2.htm?page=productupdates")
  632. End Sub
  633. Private Sub timTimer_Timer()
  634.     'if the browser is inactive, display a proper title
  635.     If webWindow.Busy = False Then
  636.         fFixTitleAndPath
  637.     'otherwise, display a loading title
  638.     Else
  639.         frmMain.Caption = "Loading... | FastWeb 2000"
  640.     End If
  641. End Sub
  642. Private Sub txtAddress_KeyPress(KeyAscii As Integer)
  643.     On Error GoTo errHandler
  644.     'if they have hit the enter button, load the site
  645.     If KeyAscii = vbKeyReturn Then
  646.         webWindow.Navigate (txtAddress.Text)
  647.     End If
  648.     Exit Sub
  649. errHandler:
  650.     Call errHandler
  651. End Sub
  652. Private Sub webWindow_DownloadComplete()
  653.     'if they don't want to see paths in the address bar,
  654.     'don't display them
  655.     If Options.ShowPaths <> 1 Then
  656.         txtAddress.Text = ""
  657.     'otherwise, show them
  658.     Else
  659.         txtAddress.Text = webWindow.LocationURL
  660.     End If
  661. End Sub
  662.