<?xml version="1.0" encoding="iso-8859-1"?>
<rss version="2.0" xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:dc="http://purl.org/dc/elements/1.1/">
	<channel>
		<title>VB Source Codes</title>
		<link>http://vbforums.omgforum.net/vb-source-codes-f5/-t1.htm</link>
		<description>Got source? Source codes help out others to see how things are done, post them here.</description>
		<lastBuildDate>Fri, 18 Jul 2008 21:57:05 GMT</lastBuildDate>
		<ttl>10</ttl>
		<image>
			<title>VB Source Codes</title>
			<url>http://i40.servimg.com/u/f40/12/70/02/22/pictur16.png</url>
			<link>http://vbforums.omgforum.net/vb-source-codes-f5/-t1.htm</link>
		</image>
		<item>
			<title>23 Handy codes</title>
			<link>http://vbforums.omgforum.net/vb-source-codes-f5/23-handy-codes-t6.htm</link>
			<dc:creator>Nilef</dc:creator>
			<description>Here are 23 Useful codes that are used in most VB scripts.





Code:Allow certain characters in a textbox

'1 textbox

'put in keypress procedure of textbox

   

    Const Numbers&#36; = &quot;0123456789.&quot;

    If KeyAscii &lt;&gt; 8 Then

    If InStr&#40;Numbers, Chr&#40;KeyAscii&#41;&#41; = 0 Then

            MsgBox &quot;error&quot;

            KeyAscii = 0

       ...</description>
			<category>VB Source Codes</category>
			<pubDate>Fri, 18 Jul 2008 21:57:05 GMT</pubDate>
			<comments>http://vbforums.omgforum.net/vb-source-codes-f5/23-handy-codes-t6.htm#9</comments>
			<guid>http://vbforums.omgforum.net/vb-source-codes-f5/23-handy-codes-t6.htm</guid>
		</item>
		<item>
			<title>Password Generator</title>
			<link>http://vbforums.omgforum.net/vb-source-codes-f5/password-generator-t5.htm</link>
			<dc:creator>Nilef</dc:creator>
			<description>This is a neat little code that will generate a random password





Code:Dim iSel As Integer

        'clear old passwords

        If Reset = True Then

            psw = &quot;&quot;

        End If

        For i = 1 To Lenght

            'create random numbers that will represent

            'each &#58; upercase,lowercase,numbers



   ...</description>
			<category>VB Source Codes</category>
			<pubDate>Fri, 18 Jul 2008 21:54:49 GMT</pubDate>
			<comments>http://vbforums.omgforum.net/vb-source-codes-f5/password-generator-t5.htm#8</comments>
			<guid>http://vbforums.omgforum.net/vb-source-codes-f5/password-generator-t5.htm</guid>
		</item>
	</channel>
</rss>