Bertram's Visual Basic
<body topmargin=0 leftmargin=0 marginheight=0 marginwidth=0><script> (function(i,s,o,g,r,a,m){i['GoogleAnalyticsObject']=r;i[r]=i[r]||function(){ (i[r].q=i[r].q||[]).push(arguments)},i[r].l=1*new Date();a=s.createElement(o), m=s.getElementsByTagName(o)[0];a.async=1;a.src=g;m.parentNode.insertBefore(a,m) })(window,document,'script','//www.google-analytics.com/analytics.js','ga'); ga('create', 'UA-47423994-1', 'fortunecity.ws'); ga('send', 'pageview'); </script> <center> <br> <div> <script language="javascript" type="text/javascript" src="http://ad.broadcaststation.net/ads/show_ad.php?width=728&height=90"></script> </div> </center> <table cellpadding=0 cellspacing=0 border=0 height="100%"><tr> <td valign="top" width=168 BGCOLOR="#000000" TEXT="#F7F7FF" background="0a5200e3.gif"> <div> <B>Content</B></div> <div> <B>- </B><FONT SIZE="4" COLOR="#FFFFCC" FACE="Arial" ><B>HOME </B></FONT><B>-</B><FONT SIZE="2" COLOR="#33FF00" FACE="Arial" ><B> </B></FONT></div> <div> <A HREF="id17.htm" TARGET="_top" TITLE="About Visual Basic"><U>About Visual Basic</U></A></div> <div> <A HREF="id23.htm" TARGET="_top" TITLE="Learn Visual Basic"><U>Learn Visual Basic</U></A></div> <div> <A HREF="id18.htm" TARGET="_top" TITLE="Quick Tips"><U>Quick Tips</U></A></div> <div> <A HREF="id24.htm" TARGET="_top" TITLE="Downloads "><U>Downloads</U></A></div> <div> <A HREF="id19.htm" TARGET="_top" TITLE="Links"><U>Links</U></A></div> <div> <A HREF="mailto:webmaster@bertvb.zzn.com" TARGET="_top" TITLE="mailto:webmaster@bertvb.zzn.com"><U>E-mail me</U></A></div> <div> <A HREF="id21.htm" TARGET="_top" TITLE="FREE Email"><U>FREE E-mail</U></A></div> <div> <A HREF="id29.htm" TARGET="_top" TITLE="Comment"><U>Comment</U></A></div> <bR> <div> You are number:<!-- Start Gem MyComputer.com Counter --> <CENTER><A href="http://counter42.bravenet.com/index.php?id=335962&cpv=1" target="_top"> <SCRIPT language="Javascript"> <!-- The following line of code must be on one line, it can not wrap // --> document.write('<IMG src="http://counter42.bravenet.com/counter.php?id=335962&ref='+escape(document.referrer)+'" border="0">'); </SCRIPT></A> </CENTER> <!-- End Gem MyComputer.com Counter --> </div> <div> since 9th February, Y2K + 1</div> <bR> </td> <td valign="top" BGCOLOR="#000000" TEXT="#F7F7FF" bgproperties="fixed" background="0a420583.jpg"> <div> <B>Bertram's Visual Basic</B></div> <div> <IMG SRC="03ff4010.gif" border=0 width="500" height="1" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"></div> <DIV ALIGN="LEFT"></DIV> <div> <IMG SRC="08f32270.gif" border=0 width="50" height="39" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"><IMG SRC="092d43b0.gif" border=0 width="212" height="59" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"><IMG SRC="08f32270.gif" border=0 width="50" height="39" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"></div> <bR> <div> <IMG SRC="0cbfa480.gif" border=0 width="250" height="72" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"></div> <bR> <div> <A HREF="id17.htm" TARGET="_top" TITLE="About Visual Basic"><U>About Visual Basic</U></A> | <A HREF="id23.htm" TARGET="_top" TITLE="Learn Visual Basic"><U>Learn Visual Basic</U></A> | <A HREF="id18.htm" TARGET="_top" TITLE="Quick Tips"><U>Quick Tips</U></A> | <A HREF="id24.htm" TARGET="_top" TITLE="Downloads "><U>Downloads</U></A> | <A HREF="id19.htm" TARGET="_top" TITLE="Links"><U>Links</U></A> | <A HREF="mailto:webmaster@bertvb.zzn.com" TARGET="_top" TITLE="mailto:webmaster@bertvb.zzn.com"><U>E-mail Me!</U></A> | <A HREF="id21.htm" TARGET="_top" TITLE="FREE Email"><U>FREE E-mail</U></A></div> <div> <B><!-- Start Gem Build Your Own Web Gem --> <script> var hellotext="Welcome to Bertram's Visual Basic Site!" var thetext="" var started=false var step=0 var times=1 function welcometext() { times-- if (times==0) { if (started==false) { started = true; window.status = hellotext; setTimeout("anim()",1); } thetext = hellotext; } } function showstatustext(txt) { thetext = txt; setTimeout("welcometext()",4000) times++ } function anim() { step++ if (step==11) {step=1} if (step==1) {window.status='=>==='+thetext+'===<='} if (step==2) {window.status='==>=='+thetext+'==<=='} if (step==3) {window.status='=>=>='+thetext+'=<=<='} if (step==4) {window.status='==>=>'+thetext+'<=<=='} if (step==5) {window.status='>==>='+thetext+'=<==<'} if (step==6) {window.status='=>==>'+thetext+'<==<='} if (step==7) {window.status='==>=='+thetext+'==<=='} if (step==8) {window.status='===>='+thetext+'=<==='} if (step==9) {window.status='====>'+thetext+'<===='} if (step==10) {window.status='>===='+thetext+'====<'} setTimeout("anim()",200); } // Funny text script by Bart Jellema --> welcometext() </script> <!-- End Gem Build Your Own Web Gem --> </B></div> <DIV ALIGN="LEFT"></DIV> <div> <IMG SRC="071c2070.gif" border=0 width="450" height="7" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"></div> <div> <!-- Start Gem Build Your Own Web Gem --> <script> userName=prompt("Hello, what's your name?","", "Welcome"); alert("Hi " + userName + "! My site provides lessons, downloads and related links of VB, please take a look! Also, it provides free email registration, in order to register, click FREE E-mail under the menu and click the link."); </script> <!-- End Gem Build Your Own Web Gem --> </div> <div> Welcome to Bertram's Visual Basic Site! My site is pretty new and still being updated. This site includes <FONT SIZE="2" COLOR="#00FF00" FACE="Arial" >lessons</FONT>, <FONT SIZE="2" COLOR="#00FF00" FACE="Arial" >downloads</FONT>, <FONT SIZE="2" COLOR="#00FF00" FACE="Arial" >related links</FONT>, <FONT SIZE="2" COLOR="#00FF00" FACE="Arial" >free e-mail registration </FONT>and more for you to discover. Don't forget to visit my site and check out what's new in here, you will find lots of important information that help you get to know Visual Basic better! </div> <bR> <div> Before you enter my site, I would like to remind that you are welcome to send me any of your Visual Basic files (*.Vbp, *.frm, *.exe files made in Visual Basic etc.), no matter how they look and how they work, and that I can share them to other visitors of this site.</div> <bR> <DIV ALIGN="LEFT"></DIV> <div> <A HREF="id17.htm" TARGET="_top" TITLE="About Visual Basic"><U><IMG SRC="05d00440.gif" border=0 width="256" height="68" ALIGN="BOTTOM" HSPACE="0" VSPACE="0"></U></A></div> <bR> <div> <!-- Start Gem Mind-it Site Tracking from NetMind --> <!-- SITENAME: members.fortunecity.com/bert8888 SITEURL: http://www.fortunecity.com/skyscraper/scsi/1212/ USERNAME: bert8888 SITEDIR: skyscraper/scsi/1212/ --> <!-- Script required to open NetMind page in a separate window --> <SCRIPT> <!-- Hide from non-script browsers function NewWindow() { window.open("", "SubmitFrame", "toolbar=no, scrollbars=yes, status=yes, resizable=1"); } --> </SCRIPT> <!-- Begin Small Box --> <form method="POST" action="http://mindit.netmind.com/mindit.shtml" target="_top"> <input type="hidden" name="SOURCE" value="511"> <input type="hidden" name="URL" value="http://www.fortunecity.com/skyscraper/scsi/1212/TlxTransfer.txt"> <input type="hidden" name="DOC_TITLE" value="members.fortunecity.com/bert8888"> <input type="hidden" name="REDIRECT" value="http://www.fortunecity.com/skyscraper/scsi/1212/"> <table border="0" cellpadding="5" cellspacing="0"><tr><td align="center"> <font face="arial,helvetica" size="-1"><b>Click to receive email <br>when this web site is updated</b></font></td> </tr><tr><td align="center"> <input type="image" src="http://mindit.netmind.com/images/mindit511.gif" border="0"></td> </tr><tr><td align="center"> <font face="arial,helvetica" size="-2">•<b> Powered by <a href="http://www.netmind.com/" target="_top">NetMind</a> </b>•</font> </td></tr></table></form> <!-- End Small Box --> <!-- End Gem Mind-it Site Tracking from NetMind --> </div> </td> </tr></table></body>