文章出处:创点教程网  WWW.Q266.COM
在vb的程序中实现随机图形验证码 

新建工程，添加一个picturebox，一个textbox，两个command button  
dim vcode as string  

private sub command1_click()  
drawvc  
end sub  

private sub drawvc() ’显示校验码  
dim i, vc, px, py as long  
dim r, g, b as byte  
randomize ’初始化随机种子  
’生成随机校验码  
vc = clng(8999 * rnd + 1000)  
vcode = vc  
’显示校验码  
picture1.cls  
picture1.print vc  
’添加噪点（防止自动图像识别）  
for i = 0 to 2000 ’画2000个噪点  
’画点随机位置  
px = clng(picture1.width * rnd)  
py = clng(picture1.height * rnd)  
’画点随机颜色  
r = cbyte(255 * rnd)  
g = cbyte(255 * rnd)  
b = cbyte(255 * rnd)  
picture1.line (px, py)-(px + 1, py + 1), rgb(r, g, b)  
next  
end sub  

private sub command2_click()  
if text1.text = vcode then  
msgbox ("正确")  
else  
msgbox ("错误")  
drawvc  
end if  
end sub  

private sub form_load()  
picture1.fontsize = 12  
picture1.fontbold = true  
picture1.autoredraw = true  
drawvc  
end sub