<XMP><body><!--'"</title></head>--> <script type="text/javascript"> //OwnerIQ var __oiq_pct = 50; if( __oiq_pct>=100 || Math.floor(Math.random()*100/(100-__oiq_pct)) > 0 ) { var _oiqq = _oiqq || []; _oiqq.push(['oiq_addPageBrand','Lycos']); _oiqq.push(['oiq_addPageCat','Internet > Websites']); _oiqq.push(['oiq_addPageLifecycle','Intend']); _oiqq.push(['oiq_doTag']); (function() { var oiq = document.createElement('script'); oiq.type = 'text/javascript'; oiq.async = true; oiq.src = document.location.protocol + '//px.owneriq.net/stas/s/lycosn.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(oiq, s); })(); } /////// Google Analytics var _gaq = _gaq || []; _gaq.push(['_setAccount', 'UA-21402695-21']); _gaq.push(['_setDomainName', 'angelfire.com']); _gaq.push(['_setCustomVar', 1, 'member_name', 'ny3/visualbasic', 3]); _gaq.push(['_trackPageview']); (function() { var ga = document.createElement('script'); ga.type = 'text/javascript'; ga.async = true; ga.src = ('https:' == document.location.protocol ? 'https://ssl' : 'http://www') + '.google-analytics.com/ga.js'; var s = document.getElementsByTagName('script')[0]; s.parentNode.insertBefore(ga, s); })(); ////// Lycos Initialization ///////////////////// var lycos_ad = Array(); var lycos_search_query = ""; var lycos_onload_timer; var cm_role = "live"; var cm_host = "angelfire.lycos.com"; var cm_taxid = "/memberembedded"; var angelfire_member_name = "ny3/visualbasic"; var angelfire_member_page = "ny3/visualbasic/examples.html"; var angelfire_ratings_hash = "1765770155:2d7d3dadaeb0a676ad9cedfa90b868f1"; var lycos_ad_category = {"dmoz":"arts\/animation","ontarget":"&CAT=family%20and%20lifestyles&L2CAT=hobbies","find_what":"visual basic programming"}; var lycos_ad_remote_addr = "209.202.244.9"; var lycos_ad_www_server = "www.angelfire.lycos.com"; var edit_site_url = "www.angelfire.lycos.com/landing/landing.tmpl?utm_source=house&utm_medium=landingpage&utm_campaign=toolbarlink"; </script> <script type="text/javascript" src="https://scripts.lycos.com/catman/init.js"></script> <script type='text/javascript'> var googletag = googletag || {}; googletag.cmd = googletag.cmd || []; (function() { var gads = document.createElement('script'); gads.async = true; gads.type = 'text/javascript'; var useSSL = 'https:' == document.location.protocol; gads.src = (useSSL ? 'https:' : 'http:') + '//www.googletagservices.com/tag/js/gpt.js'; var node = document.getElementsByTagName('script')[0]; node.parentNode.insertBefore(gads, node); })(); </script> <script type='text/javascript'> googletag.cmd.push(function() { googletag.defineSlot('/95963596/ANG_300x250_dfp', [300, 250], 'div-gpt-ad-1450207484070-0').addService(googletag.pubads()); googletag.enableServices(); }); </script> <script type='text/javascript'> googletag.cmd.push(function() { googletag.defineSlot('/95963596/ANG_above_728x90_dfp', [728, 90], 'div-gpt-ad-1450207484070-1').addService(googletag.pubads()); googletag.enableServices(); }); </script> <script type='text/javascript'> googletag.cmd.push(function() { googletag.defineSlot('/95963596/ANG_below_728X90_dfp', [728, 90], 'div-gpt-ad-1450207484070-2').addService(googletag.pubads()); googletag.enableServices(); }); </script> <script type="text/javascript"> (function(isV) { if (!isV) { return; } //this.lycos_search_query = lycos_get_search_referrer(); var adMgr = new AdManager(); var lycos_prod_set = adMgr.chooseProductSet(); var slots = ["leaderboard", "leaderboard2", "toolbar_image", "toolbar_text", "smallbox", "top_promo", "footer2","slider"]; var adCat = this.lycos_ad_category; adMgr.setForcedParam('page', (adCat && adCat.dmoz) ? adCat.dmoz : 'member'); if (this.lycos_search_query) { adMgr.setForcedParam("keyword", this.lycos_search_query); } else if (adCat && adCat.find_what) { adMgr.setForcedParam('keyword', adCat.find_what); } for (var s in slots) { var slot = slots[s]; if (adMgr.isSlotAvailable(slot)) { this.lycos_ad[slot] = adMgr.getSlot(slot); } } adMgr.renderHeader(); adMgr.renderFooter(); }((function() { var w = 0, h = 0, minimumThreshold = 300; if (top == self) { return true; } if (typeof(window.innerWidth) == 'number' ) { w = window.innerWidth; h = window.innerHeight; } else if (document.documentElement && (document.documentElement.clientWidth || document.documentElement.clientHeight)) { w = document.documentElement.clientWidth; h = document.documentElement.clientHeight; } else if (document.body && (document.body.clientWidth || document.body.clientHeight)) { w = document.body.clientWidth; h = document.body.clientHeight; } return ((w > minimumThreshold) && (h > minimumThreshold)); }()))); window.onload = function() { var f = document.getElementById("lycosFooterAd"); var b = document.getElementsByTagName("body")[0]; b.appendChild(f); f.style.display = "block"; document.getElementById('lycosFooterAdiFrame').src = '/adm/ad/footerAd.iframe.html'; // Slider Injection (function() { var e = document.createElement('iframe'); e.style.border = '0'; e.style.margin = 0; e.style.display = 'block'; e.style.cssFloat = 'right'; e.style.height = '254px'; e.style.overflow = 'hidden'; e.style.padding = 0; e.style.width = '300px'; })(); // Bottom Ad Injection ( function() { var b = document.getElementsByTagName("body")[0]; var iif = document.createElement('iframe'); iif.style.border = '0'; iif.style.margin = 0; iif.style.display = 'block'; iif.style.cssFloat = 'right'; iif.style.height = '254px'; iif.style.overflow = 'hidden'; iif.style.padding = 0; iif.style.width = '300px'; iif.src = '/adm/ad/injectAd.iframe.html'; var cdiv = document.createElement('div'); cdiv.style = "width:300px;margin:10px auto;"; cdiv.appendChild( iif ); if( b ) { b.insertBefore(cdiv, b.lastChild); } })(); } </script> <style> #body .adCenterClass { margin:0 auto; display:block !important; overflow:hidden; width:100%; } #body .adCenterClass #ad_container { display:block !important; float:left; width:728px; } @media (min-width: 768px) { <!-- For 300px or less ads ONLY --> #body .adCenterClass #ad_container { width: calc(100% - 372px); } } @media (min-width: 1110px) { <!-- For 728px or less ads --> #body .adCenterClass #ad_container { width: calc(100% - 372px); } } </style> <div style="background:#abe6f6; border-bottom:1px solid #507a87; position:relative; z-index:9999999"> <div class="adCenterClass"> <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; float:left; width:186px; border:0"> <img src="/adm/ad/angelfire-freeAd.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" /> </a> <div id="ad_container"> <script type="text/javascript">document.write(lycos_ad['leaderboard']);</script> </div> </div> </div> <!-- ///////////////////////////////////// --> <script type="text/javascript">document.write(lycos_ad['slider']);</script> <div id="lycosFooterAd" style="background:#abe6f6; border-top:1px solid #507a87; clear:both; display:none; position:relative; z-index:9999999"> <div class="adCenterClass" style="display:block!important; overflow:hidden; width:936px;"> <div id="aflinksholder" style="float:left; width:186px;"> <a href="https://www.angelfire.lycos.com/" title="Angelfire.com: build your free website today!" style="display:block; border:0"> <img src="/adm/ad/angelfire-freeAd2.jpg" alt="Site hosted by Angelfire.com: Build your free website today!" style="display:block; border:0" /> </a> </div> <iframe id="lycosFooterAdiFrame" style="border:0; display:block; float:left; height:96px; overflow:hidden; padding:0; width:750px"></iframe> </div> </div> <!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE START---> <script data-cfasync="false" language="javascript" async src="//udmserve.net/udm/img.fetch?sid=17754;tid=1;dt=6;"></script> <!--- UNDERDOGMEDIA EDGE_lycos.com JavaScript ADCODE END---> </xmp>

VB Examples

Here are a few Visual Basic examples. All these files are in .Zip format, so you will need WinZip v7.0 + to unzip them and if you don't have it go here and download the latest version, which will not cost you anything. You will aslo need Visual Basic 5 or 6 (written in VB5) in order to use these examples.

Example
Details
Password Entry An example showing you how to make your program use passwords for access
Combo Boxes & Select Case An example showing you how to use Combo boxes w/ select case
Do While Loops An example showing you how to use Do While loops
List Box An example showing you how to use the List box control Updated
Frames An example showing you how to use Frames efficiently Updated
ProgressBar An example showing you how to use the progress bar control *Fix* ReUploaded
Menus An example showing you normal menus and the differnt options they have
Popup Menus An example showing you how to make Popup menus
"OnTop" Form An example of a form that is always ontop
Timer An example of a way to use a timer
Playing .mids An example of how to play .mid sound files (special thanks to Gollum)
Playing .wavs An example of how to play .wav sound files (special thanks to Gollum)
Draging & Droping An example of how to drag & drop things on your form
ToolBar An example of how to make and use the ToolBar control
Cancel For Loop An example of how to cancel a For Loop that is in progress
Cancel Do Loop An example of how to cancel a Do Loop that's in progress
Moving the Mouse An example of how to move the pointer with codes
Hiding the Mouse An example of how to hide the mouse...
Common Dialog An example of how to use the Color dialog box
Common Dialog2 An example of how to use the Open dialog box
Animating w/ BitBlt An example of how to use BitBlt to animate a sprite (special thanks to Gollum)
Animating w/ BitBlt2 An example of how to use BitBlt to animate a sprite, make it transparent and move it on the form (special thanks to Gollum)
API An example of how to use API to get the User Name from the system...
API 2 An example of how to use API to find if a window is open or not...
API 3 An example of how to use API to Shut down/Restart/Log-Off Windows...
Comparing Two Listboxes An example of how to compare two list boxes, and see what is missing from the second list...
Saving to the Registry An example of how to Save and Load from the Registry
For Loop An example of how to use a For Loop...
Get Len of File/String An example of how to get the length of a File or a String...
Printing ListBoxes An example of how to print List Boxes out...
Preventing Instances An example of how to prevent your program from running more than once at the same time
Get Resolution An example of how to get your current resolution
Get Mouse Pos An example of how to get your mouse's current position
Closing Windows An example of how to close other apps
Renaming Files An example of how to rename files
Copying Files An example of how to copy files
Check If File/Dir Exists An example of how to check if a certain file or directory exists
Scroll In Text Boxes An example of how to check scroll up/middle/down text boxes
Random Numbers An example of how to generate random numbers
Browsing An example of how to browse your computer using the Drive, Dir and File controls
Reading Text Files An example of how to read text files
Control Arrays An example of how make and use control arrays
Making Files An example of how make files
'Edit' Menu An example of how make and use edit menu functions such as copy, cut, paste, delete and select all
Quotation Marks An example of how to add quotation marks to text
IsNumeric Function An example of how to use the 'IsNumeric' function
Left | Mid | Right Functions An example of how to use the "Left," "Right," and "Mid" functions
Selecting Text An example of how to select text in text boxes
Searching Text An example of how to search for text in a text box
Making Directories An example of how to make directories in your hard drive
Running Apps An example of how to run apps
Writing Backwards An example of how to write backwards in text boxes
Going To Web Sites An example of how to go to web sites
Removing Directories An example of how to remove directories
Getting Variable's Data Types An example of how to find out a variables data type
Get Available Fonts An example of how to get all the available fonts the user has on their system
Collection An example of a collection, how to make and use its methods
Data Control An example of how to use the data control to access databases
Data Control2 An example of how to use the data control to access databases

<XMP></body></xmp>