Planet Source Code Jumbo Resource CD Visual Basic 1 to 7

home *** CD-ROM | disk | FTP | other *** search

/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Pictures / pic20058302319386795.gif < prev next >

Graphics Interchange Format | 2005-08-30 | 11KB | 741x373 | 4-bit (7 colors)

Labels: crt screen | earth | monitor | person | plant | road | sky | web site | window
OCR: Option Explicit Public Function RemoveDupes lstList AS Control, blnLowercase Boolean blnNoSpaces As Dirn strItem U.S Str ing strCheck A5 String Dim int Item Integer, intCheck Integer RemoveDupes& lstList Listcount For intItem To lstList ListCount For intcheck? int Item lstList .ListCount Items lstList List (intItem$) blnLowercase True Then strItem$ Lcase (strItem$) blnNoSpaces True Then strItem$ Replace str Item$ PP ""y rchecks lstList List intCheck blnLowerCase True Then strChecks LCase (strCheck$) blnNoSpaces True Then strCheck$ Rep lace (strchecks strItem strchecks Then Call lstList Remove Item( (intCheck) intcheck intcheck End Next intCheck Next int It em RemoveDupes& RemoveDupes& lstList ListCount End Funct ion htto://chad offroadextemes com forums RemoveDunes hlnNoSpaces eDupes intCh ...