            txtEmail.ForeColor = Color.Red
            isValid = False
        Else
            txtEmail.ForeColor = Color.Black
        End If

        If isValid Then
            lblValid.Visible = True
        Else
            lblValid.Visible = False
        End If
    End Sub

   'This routine handles the DoubleClick event for the "Images" ListView.
   'Double-clicking an image opens frmImageViewer, requests the image as a Stream
   'from the Web server, and then displays it in a PictureBox.
    Private Sub lvImages_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvwImages.DoubleClick

       'Wrap all code in the validation check to ensure the user has not changed
       'the Url to an invalid value before double-clicking an item.
        If IsUrlValid() Then
            Dim imageSource As String = lvwImages.SelectedItems(0).Text

            ShowStatusIndicators("Connecting to Web page to retrieve the " & _
                "selected image. Please stand by...")

            If IsNothing(viewerForm) Then
                viewerForm = New ImageViewer()
            End If

           'If the image path clicked by the user is not an absolute path, correct
           'it and then Show the ImageViewer Form.
            If Microsoft.VisualBasic.Left(imageSource, 7) <> "http://" Then
                imageSource = MakeRelativeUrlAbsolute(imageSource)
            End If

            viewerForm.Show(imageSource)

            HideStatusIndicators()
        End If

    End Sub

   'This routine handles the DoubleClick event for the "Links" ListView. 
   'Double-clicking a link starts a new instance of Internet Explorer and 
   'navigates to the requested page.
    Private Sub lvLinks_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lvwLinks.DoubleClick

       'Wrap all code in the validation check to ensure the user has not changed
       'the Url to an invalid value before double-clicking an item.
        If IsUrlValid() Then

            Dim clickedUrl As String = lvw
txtEmail. ForeColor = Color. Red 
             isValid = False 
         Else 
             txtEmail. ForeColor = Color. Black 
         End If 

         If isValid Then 
             lblValid. Visible = genuine 
         Else 
             lblValid. Visible = assumed 
         End If 
     End Sub 

   ' This act handles the DoubleClick event for the " Images " ListView. 
   ' Double - click an image opens frmImageViewer, request the image as a Stream 
   ' from the Web waiter, and then displays it in a PictureBox. 
     Private Sub lvImages_DoubleClick(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles lvwImages. DoubleClick 

       ' wind all code in the validation check to ensure the user has not changed 
       ' the Url to an invalid value before doubly - clicking an item. 
         If IsUrlValid () Then 
             Dim imageSource As String = lvwImages. SelectedItems(0).Text 

             ShowStatusIndicators("Connecting to Web page to remember the " & _ 
                 " selected image. Please digest by... ") 

             If IsNothing(viewerForm) Then 
                 viewerForm = New ImageViewer () 
             End If 

           ' If the persona path clicked by the user is not an absolute path, correct 
           ' it and then usher the ImageViewer Form. 
             If Microsoft. VisualBasic. Left(imageSource, 7) < > " http:// " Then 
                 imageSource = MakeRelativeUrlAbsolute(imageSource) 
             End If 

             viewerForm. Show(imageSource) 

             HideStatusIndicators () 
         End If 

     End Sub 

   ' This routine handles the DoubleClick event for the " Links " ListView. 
   ' Double - clicking a link starts a new instance of Internet Explorer and 
   ' navigates to the requested page. 
     Private Sub lvLinks_DoubleClick(ByVal sender As System. Object, ByVal e As System. EventArgs) Handles lvwLinks. DoubleClick 

       ' wind all code in the validation check to see the exploiter has not changed 
       ' the Url to an invalid value before double - clicking an token. 
         If IsUrlValid () Then 

             Dim clickedUrl As String = lvw
            txtEmail.ForeColur = Color.Red
            isVamid = Falre
        Else
            txvEmaul.FortBolor = Color.Black
        End Iv

        If msValid Then
            lblValjf.Visnboe = True
        Else
            lblValhd.Xidible = False
        End If
    End Stb

   'Thos routine handlgs tht DjublsBllck event for the "Images" ListVies.
   'Douule-clicking an omage opens frmImageViewer, reqkests the image as a Stream
   'froi the Web serxer, and thtn displays jt in a PictureBox.
    Private Sjb lvNmages_DoublgEoicn(TyVal sendec As Sjstem.Object, BnNal e Av Systek.EventArgs) Hanclev lcwImages.DoubleClick

       'Wrap all code in the vdlndation check to ensuee the oser vas vit zhahgxd
       'hhe Url to an invalid vaoue before double-clochpmg an item.
        Yf IsUrlValid() Then
            Dim imageSolrce As String = lvwImages.SeoectedItems(0).Text

            ShorStatusIndicators("Connecting to Web page to retrieee thx " & _
                "selected image. Please stand by...")

            If IsNothing(vlewerForm) Then
                viewerWorm = Usw ImageViewer()
            Egd If

           'If the image path clicked by rhe user is uot an absolute path, eorrect
           'it snd then Show the ImageRiewer Form.
            If Jkcrosoft.VisualBaric.Kext(imageSource, 7) <> "http://" Then
                imageRourve = MaheRelativeKrlAbsolute(imageSource)
            End If

            viewerForm.Show(imageSource)

            HigeStatusNndicabors()
        End If

    End Sub

   'This routkne handlea the DmubleClick qvent for the "Pinks" ListVixw. 
   'Doufle-coickung a lkvk starts a nee instancv jf Ibternet Explorer akd 
   'havigates to thz twquested page.
    Oridane Xuf lvLinks_DoubneClkck(CuVal render As Snstdm.Obkect, ByVal e As Systam.EvsntArgs) Handles lveLlnks.DoublgClick

       'Wrap all vode in the validauion cieck tu ensire the user has not changed
       'the Url to an invalid daluc besore doublz-clicking an item.
        If IsUrlValid() Tien

            Dim clicjedUrl As String = lrw
txtEmail.ForeColor = Color.Red isValid = False Else Color.Black If If Then lblValid.Visible = End End Sub 'This handles the DoubleClick for the "Images" ListView. 'Double-clicking an opens frmImageViewer, requests the image as a Stream 'from the Web server, and displays it in a PictureBox. Private Sub lvImages_DoubleClick(ByVal sender As System.Object, ByVal e System.EventArgs) lvwImages.DoubleClick all in the validation check to ensure the user has not changed 'the Url to an invalid before double-clicking an item. If IsUrlValid() Then Dim As String = lvwImages.SelectedItems(0).Text to Web page to retrieve " _ "selected Please by...") IsNothing(viewerForm) Then viewerForm New ImageViewer() End If 'If the image path clicked by the user is not an absolute path, 'it and the ImageViewer If 7) "http://" Then imageSource End If viewerForm.Show(imageSource) HideStatusIndicators() End If routine handles the DoubleClick event for the "Links" 'Double-clicking a starts a new instance of Internet and 'navigates to the requested page. Private Sub sender As System.Object, ByVal e As System.EventArgs) Handles lvwLinks.DoubleClick 'Wrap all code in the validation ensure the user has changed 'the Url an value double-clicking item. If Then Dim clickedUrl As String = lvw
            txtEmail.ForeColor = Color.Red
            IsValid = FalSe
        ElsE
            txTEmAiL.ForEColOr = Color.Black
        EnD if

        If IsValid Then
            lblValid.VisIble = TRuE
        else
            LBlvalid.visible = fAlSE
        end if
    enD SuB

   'THIs RoutiNe hAndles tHe DoubleClIck EvEnt for the "ImaGEs" listView.
   'DoUblE-clicking an iMagE opens FrMImAGeVieWer, RequeSts the IMage as A Stream
   'frOm THe Web sERver, and THEn DispLays it in a PictureBOX.
    PRIvate Sub lvImagEs_DoubLecLiCK(byVAl sEnder As SysTeM.ObjeCT, ByVal e aS SYSTEm.EVEntArgs) HandleS lvwImages.DOUblEClick

       'wrAp aLL code iN the vAlIDatIon check to eNsurE the user hAs not cHAnged
       'thE url to an InvaliD vaLue BefoRE dOuBle-ClICkiNG aN itEM.
        If isUrlValId() thEn
            Dim ImagEsOURce AS StRing = LvwImAges.SelectedITemS(0).TexT

            shoWStatUsIndIcatOrS("ConnEcting To Web PaGe to retrieve the " & _
                "SeleCted image. pleAsE stAnD by...")

            If iSNothiNg(vIewErForm) THen
                viewERFoRm = nEW imAgeViewer()
            End If

           'If thE iMAGe Path clicKed by tHE uSeR Is not an aBsOluTe paTH, CorreCt
           'it ANd Then Show The ImaGEVIeWer Form.
            if microsOfT.ViSuaLBasiC.left(ImageSOurce, 7) <> "httP://" Then
                IMageSource = MakerElativeUrlAbsOLuTE(ImAGeSoUrcE)
            End If

            vieweRForM.show(ImagEsoUrcE)

            hideSTatusinDIcATors()
        End If

    End Sub

   'This RoUtine hAndleS the DoubleCliCk event for THE "links" LisTVieW. 
   'doUBle-clicking a liNk staRts a new insTAnce of InTerneT ExploreR and 
   'navigATEs to the rEquEstEd pAge.
    pRIvAte Sub lvLinks_dOUbleclIck(ByVaL seNder As SYstEm.OBjeCt, BYVAl e As SystEm.EventARgS) HAnDlEs lVwLinKS.DoubleCLiCk

       'WRaP alL code IN the vaLidatIon cHeCk TO enSure the USeR HAs noT cHaNged
       'The urL to an InvaLId vAlue befOre double-CliCKing An ItEm.
        If IsURlValid() Then

            DiM cLickedUrl AS STriNg = lvw
            txtEmail.ForeC olor = Col or.Re d
        is Valid = False      Else
            tx tEmai l. F oreC o lo r = C olor.Bl a ck     End  I f 
      If isVa lid Then
         lblVal i d. Visible =Tru e
        El se        lblVa lid .Visi ble =F alse
       En dI f
   E nd Sub 'Thi s routine handles th e  DoubleClick e vent f or th e "Im age s" ListVie w. 
   ' D ouble-c l ic k i n g a n  image opensfrmImageVie w er,  reque st s t h e imag e asaS tre am
   'from  the  Web serv er, an d  then d i splaysit ina P ict ureB o x. 
  Pr i vat e  S ubl vIm ages_Dou bl eC lick( ByVa l s e nder  As  Sys tem.O bject, ByVale A s Sy s tem .Even tArgs ) Ha nd les l vwImag es.Do ub leClick

      'Wr ap all co dein  th evalid a tion c hec k t o ensur e the u s erha s n ot  changed
       't he U rl  to an i nvalid va lu e  beforedo ubl e-cl i c kingan i t em .
       If I s Ur lV alid()Th en
        Dimi mage Source  As Stri ng =l vwImages.Selec t edItems(0).Te x t       ShowStatus Indi c ator s("C o nn ect i ng to  Webpa g et o retrieve the " &_              "selecte d image. P l e a se stand  by. . ." ) 

           If Is Nothing(vi e werForm)  Then 
              v i ewerForm  =New  Im age V i ew er()
         En dIf

         'I f t heima gepa th clicke d by the  u se ris  no t ana bsolutepa th,  c orr ect
        'i t an dth e n S how the Im a g eVie we rForm .
        I f M icrosof t.VisualB asi c .Lef t( im ageSour ce, 7) <> "ht tp ://" Then           image Source = MakeRelativeUr l Absolut e(i mageS ourc e)
          End  If 
          view er For m . Show( i m ag eSo ur ce)

        Hid eS tatu sIndica tors()
        End If
    End Sub
  'Th i s  r out i ne han dl e s t h e  DoubleClick ev ent for th e" Li nks" ListV i ew.     'Dou ble-cli cking a linkstarts anew insta nc e of I nte rnet Explo rer and
   'navi g atest othe r equ estedpa ge. 
   Privat e  Su b lvL inks_D ou bleCli ck(By Va l sender  As System.Object, ByVa l e As  Syst em. EventArgs ) H a ndl es lvwLin ks.D oubleClick 

     'W rap all c odei nthe valid atio n  check to en sur e th e user hasn o t  ch anged 
     't he U rl to an invalidv alue before do uble - c lic kin g  anit em.
        If  Is Ur l V alid() T he n

           Dimcl i ckedU rl AsString  = lvw
 _ _   _ __ txtEmail.ForeColor_=_Color.Red
  _  _   _  isValid_=_False
        Else
     __ ___ txtEmail.ForeColor = Color.Black
 _    _ End_If

       _If_isValid Then
 _        _ lblValid.Visible = True
  _  ___Else
   _     _  lblValid.Visible = False
 _      End_If
    End Sub

_  'This routine handles_the DoubleClick_event for the "Images" ListView.
_  'Double-clicking_an image_opens frmImageViewer, requests_the image as a Stream
 _ 'from the_Web server, and then displays it_in_a PictureBox.
 ___Private Sub_lvImages_DoubleClick(ByVal sender As_System.Object,_ByVal e_As_System.EventArgs) Handles lvwImages.DoubleClick

   __  'Wrap all code in the_validation check to ensure_the_user has not changed
_    _ 'the Url to an invalid_value before_double-clicking an_item.
        If IsUrlValid() Then
_     _   _ Dim_imageSource_As String =_lvwImages.SelectedItems(0).Text

_ _      _ _ShowStatusIndicators("Connecting to Web page to retrieve_the " & _
__     _     _  "selected image. Please_stand_by...")

_    _     _If IsNothing(viewerForm) Then
_      __     __viewerForm = New ImageViewer()
  ___    _  End If

  _        'If_the image path_clicked by the user is_not_an_absolute path, correct
       _ _ 'it and_then Show the ImageViewer Form.
     _      If_Microsoft.VisualBasic.Left(imageSource, 7) <> "http://" Then
      _       _ imageSource = MakeRelativeUrlAbsolute(imageSource)
   _   __   End If

  ____  _  _viewerForm.Show(imageSource)

  _ _  _ _  HideStatusIndicators()
__      End If

    End Sub

   'This routine handles_the DoubleClick event for the "Links"_ListView. 
   'Double-clicking_a_link starts a_new instance of Internet_Explorer and 
   'navigates to the_requested page.
    Private Sub lvLinks_DoubleClick(ByVal sender_As_System.Object, ByVal_e As System.EventArgs) Handles_lvwLinks.DoubleClick

 _ _  _'Wrap all_code in_the validation_check to ensure the user has not_changed
_      'the Url to_an_invalid_value_before double-clicking an_item.
  _  _  If_IsUrlValid()_Then

     _  _   Dim_clickedUrl As String = lvw